X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute%2FRole%2FMeta%2FAttribute.pm;fp=lib%2FMooseX%2FClassAttribute%2FRole%2FMeta%2FAttribute.pm;h=66879ac0279047fa37edc14a11f524b7efd3fd0a;hb=6048a0539081fb957a030fd99c442bf80ceed15e;hp=1b1f1b5015ead4fcfd25b6c2642c295688db68ac;hpb=941ae03a6c2f4e7e594a66f8aaa08b8a2cad55b7;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/lib/MooseX/ClassAttribute/Role/Meta/Attribute.pm b/lib/MooseX/ClassAttribute/Role/Meta/Attribute.pm index 1b1f1b5..66879ac 100644 --- a/lib/MooseX/ClassAttribute/Role/Meta/Attribute.pm +++ b/lib/MooseX/ClassAttribute/Role/Meta/Attribute.pm @@ -55,7 +55,8 @@ around 'detach_from_class' => sub sub _initialize { - my $self = shift; + my $self = shift; + my $metaclass = shift; if ( $self->has_default() ) { @@ -63,7 +64,7 @@ sub _initialize } elsif ( $self->has_builder() ) { - $self->set_value( undef, $self->_call_builder() ); + $self->set_value( undef, $self->_call_builder( $metaclass->name() ) ); } }