ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Perl中有效创建Getter 和Setter的方法

Perl中有效创建Getter 和Setter的方法

原创 Linux操作系统 作者:物理狂人 时间:2012-05-07 15:28:59 0 删除 编辑
利用Class::MethodMaker可以有效避免重新写很多getter和setter的代码,具体如下:

package Animal;
use Class::MethodMaker
new_with_init => 'new',
get_set => [ -eiffel => [qw(color height name age)]],
abstract => [qw(sound)],
;
sub init {
my $self = shift;
$self->set_color($self->default_color);
}

sub named {
my $self = shift->new;
$self->set_name(shift);
$self;
}

sub speak {
my $self = shift;
print $self->name, '  goes ', $self->sound, "\n";
}

sub eat {
my $self = shift;
my $food = shift;
print $self->name, " eats $food\n";
}

sub default_color {
'brown';
}

生成函数new会调用init函数,eiffel中为需要创建的setter和getter对象

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24104518/viewspace-722907/,如需转载,请注明出处,否则将追究法律责任。

上一篇: Coverage Testing
请登录后发表评论 登录
全部评论

注册时间:2010-06-16

  • 博文量
    80
  • 访问量
    140032