第 7 章 Perl OOP

玄学酱 2018-01-09

perl

目录

7.1. Moose - A postmodern object system for Perl 5

Person.pm

		
package Person;s
use strict;

sub new {
	my $self = {};
	$self->{NAME} = undef;
	$self->{AGE} 	= undef;
	$self->{PEERS}= [];
	bless($self);
	return $self;
}

sub name {
	my $self = shift;
	if(@_) {$self->{NAME}=shift}
	return $self->{NAME};
}

sub age {
	my $self = shift;
	if(@_) {$self->{AGE} = shift}
	return $self->{AGE};
}

sub peers {
	my $self = shift;
	if(@_) { @{$self->{PEER}} = @_}
	return @{$self->{PEERS}};
}


1;
		
	
		
use Person;

$person = Person->new();
$person->name('name');

print  $person->{NAME}		
		
	

7.1. Moose - A postmodern object system for Perl 5

MooseX::Declare - Declarative syntax for Moose





原文出处:Netkiller 系列 手札
本文作者:陈景峯
转载请与作者联系,同时请务必标明文章原始出处和作者信息及本声明。

登录 后评论
下一篇
云栖号资讯小编
1111人浏览
2020-03-31
相关推荐
Perl5的OOP学习笔记
587人浏览
2017-11-15 00:43:00
Perl OOP
968人浏览
2015-07-29 22:30:00
014_《Delphi高手突破》
769人浏览
2010-11-22 14:53:00
《C#初学者指南》一导读
1518人浏览
2017-05-02 14:48:00
Perl语言面向对象入门
1345人浏览
2017-07-01 13:58:04
第 174 章 TUTOS
782人浏览
2017-12-22 11:37:00
第 6 章 Perl Module
773人浏览
2018-01-09 12:00:00
learning perl第5章练习题
633人浏览
2017-10-06 16:25:00
0
0
0
652