Perl-Mouse/継承非Mouseクラスの継承 (MouseX-Foreign) のバックアップ差分(No.1)

バックアップ一覧
現在との差分を表示
ソースを表示
バックアップを表示
Perl-Mouse/継承非Mouseクラスの継承 (MouseX-Foreign) へ行く。
- 1 (2010-12-24 (金) 00:01:46)

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

* 非Mouseクラスの継承 [#gb55aa4f]

MouseX::Foreignを使う。

 package MyUA;
 use Mouse;
 use MouseX::Foreign qw/LWP::UserAgent/;
 
 has name => (
     is  => 'rw',
     isa => 'Str',
 );
 
 sub FOREIGNBUILDARGS {
     my $class = shift;
     my %args  = @_;
     return ( agent => $args{agent} );
 }
  
 __PACKAGE__->meta->make_immutable();
  
 1;