- 追加された行はこの色です。
- 削除された行はこの色です。
* 非Mouseクラスの継承 [#gb55aa4f]
MouseX::Foreignを使う。
*** MyUA.pm [#j6aa09de]
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;
*** main.pl [#ef758325]
use MyUA;
my $ua = MyUA->new( name => 'this-is-useless', agent => 'my-test-ua' );
** 説明 [#q5cbdbfa]
- 非Mouseクラスを継承する場合、extendsではなく、MouseX::Foreignを使う。
-- ここでは非MouseクラスであるLWP::UserAgentを継承する。
- FOREIGNBUILDARGS()で親クラスのnew()に渡す引数を作成する。
-- ここでは( agent => $args{agent} )がLWP::UserAgentのnew()に渡る。
- ここでは記述がないが、BUILDARGS()でMyUAクラスのコンストラクタに渡す引数を作成出来る。