trAvis - MANAGER
Edit File: 059-weak-with-default.t
#!/usr/bin/perl use strict; use warnings; use Test::More tests => 6; { package MyClass; use Mouse; has lazy_weak_with_default => ( is => 'rw', isa => 'Ref', weak_ref => 1, lazy => 1, default => sub{ [] }, ); has weak_with_default => ( is => 'rw', isa => 'Ref', weak_ref => 1, default => sub{ [] }, ); } my $o = MyClass->new(); is($o->weak_with_default, undef); is($o->lazy_weak_with_default, undef); is($o->lazy_weak_with_default, undef); MyClass->meta->make_immutable(); $o = MyClass->new(); is($o->weak_with_default, undef); is($o->lazy_weak_with_default, undef); is($o->lazy_weak_with_default, undef);