Perl-Mouse/継承 (extends) のバックアップの現在との差分(No.2)

バックアップ一覧
ソースを表示
バックアップを表示
Perl-Mouse/継承 (extends) は削除されています。
- 1 (2010-12-23 (木) 23:53:47)
- 2 (2010-12-24 (金) 00:49:06)

追加された行はこの色です。
削除された行はこの色です。

* 継承 [#pb891592]

extendsを使う。

*** User.pm [#t6a51b58]
 package User;
 use Mouse;
 use URI;
 
 has 'name' => ( is => 'rw', isa => 'Str' );
 has 'age'  => ( is => 'rw', isa => 'Int' );
 has 'uri'  => ( is => 'rw', isa => 'URI' );
 
 __PACKAGE__->meta->make_immutable();
 1;

*** User/Man.pm [#zae5de26]
 package User::Man;
 use Mouse;
 extends 'User';
 
 has 'sex'  => ( is => 'rw', isa => 'Str' );
 
 __PACKAGE__->meta->make_immutable();