trAvis - MANAGER

Edit File: 102-attr-default-with-instance.t

use strict; use warnings; use Test::More; { package Foo; use Mouse; has bar => ( is => "rw", default => sub { my($self) = @_; return $self->baz; }, ); sub baz { "baz" } } my $bar = Foo->meta->find_attribute_by_name('bar') or die "cannot find attr"; is ref($bar->default), "CODE", "default() returns CodeRef"; is $bar->default(Foo->new), "baz", 'default($instance) returns resolved values'; done_testing;