非Mouseクラスの継承

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;

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS