Perl Class::Accessor 失败，简单的例子 - 为什么？

Question

有人能告诉我为什么在这个非常小而微不足道的例子中主要找不到 Class::Accessor 生成的方法吗？

这几行代码失败了

perl codesnippets/accessor.pl
Can't locate object method "color" via package "Critter" at
codesnippets/accessor.pl line 6.

看代码:

#!/opt/local/bin/perl
# The whole Class::Accessor thing does not work !!

my $a = Critter->new;
$a->color("blue");
$a->display;
exit 0;

package Critter;
    use base qw(Class::Accessor );
    Critter->mk_accessors ("color" );

    sub display {
        my $self  = shift;
        print "i am a $self->color " . ref($self) . ", whatever this word means\n";
    }

Answer 1

你的代码有问题。如果你想要 color访问器可用，您需要调用 mk_accessors 之前 你创建你的对象并开始用它做事。例如:

package Critter;
use base qw(Class::Accessor);
Critter->mk_accessors("color");

sub display {
    my $self  = shift;
    print $self->color, ' ', ref($self), "\n";
}

package main;
my $c = Critter->new;
$c->color("blue");
$c->display;

更常见的是 Critter代码将在它自己的模块中( Critter.pm )，所有的 mk_accessor当你的主脚本运行 use Critter 时，魔法就会发生-- 在你的脚本开始使用 Critter 之前和 Varmint对象。