从属性中获取属性值

Question

在Moose扩展中，我在写我试图从属性内访问属性值，而不通过访问器，但我似乎无法得到正确的结果。

我想能写这样的代码

{ 
    package Test; 
    use Moose; 
    use MooseX::RemoteName; #provides magic 

    has attr0 => (
     isa   => 'Bool', 
     is   => 'ro', 
     default  => sub { 1 }, 
     serializer => sub { 
      my $s = shift; 
      return $s->get_value($s) ? 'Y' : 'N'; 
     }, 
    ); 

    has attr1 => (
     isa => 'Str', 
     is => 'ro', 
    ) 
} 

，这样我就可以做（从我的测试）

my $t0 = Test->new({ attr1 => 'foo' }); 

isa_ok my $attr0 = $t0->meta->get_attribute('attr0'), 'Class::MOP::Attribute'; 
is $attr0->serialized, 'Y', 'remote_name serializes'; 

isa_ok my $attr1 = $t0->meta->get_attribute('attr1'), 'Class::MOP::Attribute'; 
is $attr1->serialized, 'foo', 'remote_name serializes'; # undef 

这就是我想要的扩展

has serializer => (
    isa  => 'CodeRef', 
    is  => 'ro', 
    lazy  => 1, 
    default => sub { 
     return sub { 
      my $arg = shift; 
      return $arg->get_value($arg->associated_class); 
     } 
    }, 
); 

sub serialized { 
    my $self = shift; 

    my $coderef = $self->serializer; 

    return &$coderef($self); 
} 

Answer 1

我的问题似乎是两倍，我的匿名子例程没有做对，我需要通过的实例该对象指向匿名子例程。

这似乎在我的驼鹿扩展

has serializer => (
    predicate => 'has_serializer', 
    traits => ['Code'], 
    is  => 'ro', 
    default => sub { 
     return sub { 
      my ($self, $instance) = @_; 
      return $self->get_value($instance); 
     } 
    }, 
    handles => { 
     serializing => 'execute_method', 
    }, 
); 

sub serialized { 
    my ($self, $instance) = @_; 

    return $self->serializing($instance); 
} 

，然后让我写以下（略有不同）是工作

package Test; 
use Moose; 
use MooseX::RemoteName; 

has attr0 => (
    isa  => 'Bool', 
    is   => 'ro', 
    lazy  => 1, 
    default => sub { 1 }, 
    serializer => sub { 
     my ($attr, $instance) = @_; 
     return $attr->get_value($instance) ? 'Y' : 'N'; 
    }, 
); 

将通过这个测试没有问题

subtest t0 => sub { 
    my $t = Test->new; 

    is $t->attr0, 1, 'attr0 is 1'; 

    isa_ok my $attr0 = $t->meta->get_attribute('attr0'), 'Class::MOP::Attribute'; 

    is $attr0->serialized($t), 'Y', 'attr0 serializes'; 
    isa_ok $t, 'Test'; 
}; 

我想我可以活过去的实例，虽然我不完全是sur e为什么get_value需要。