🚀 go-pugleaf

On 5 Sty, 22:12, Jarosław Lubczyński <gu...@who.com.pl> wrote:
>
> Spodoba a mi si ta technika, nie powiem :). Moose / Mouse te . Ale
> przyk adu podanego przez kol. Micha a Jankowskiego nie daje si
> bezpo rednio zaadaptowa :
>
> package My::ClassA;
> {
>      use Moose;
>
>      has data => (is => 'rw', isa => 'Int', required => '1');
>      has para => (is => 'rw', isa => 'Int', required => '1');
>
>      no Moose;
>
> }
>
> package My::ClassB;
> {
>      use Moose;
>
>      has data => (is => 'rw', isa => 'Int', required => '1');
>      has parb => (is => 'rw', isa => 'Str', required => '1');
>
>      no Moose;
>
> }
>
> package My::ClassC;
> {
>      use Moose;
>      extends qw( My::ClassA My::ClassB);
>
>      has info => (is => 'rw', isa => 'Str', required => '1');
>
>      no Moose;
>
> }
>
> package main;
>
> $obj = My::ClassC->new # B D!
> (
>      {
>          'info' => 'help',
>          'My::ClassA' => { data => 11},
>          'My::ClassB' => { data => 31},
>          'para' => 4342,
>          'parb' => 'ma kota',
>      }
> );
>
> print $obj->My::ClassA::data(), "\n";
> print $obj->My::ClassB::data(), "\n";
> print $obj->para(), "\n";
> print $obj->parb(), "\n";
> print $obj->info(), "\n";
>
> __END__
>
> Przy wywo aniu My::ClassC->new dostaj b d:
>
> Attribute (data) is required at
> /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Class/MOP/Class.pm line
> 603
> Class::MOP::Class::_construct_instance('Moose::Meta::Class=HASH(0x9a2347c)',
> 'HASH(0x9a324ec)') called at
> /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Class/MOP/Class.pm line
> 576

Ten komunikat to wyjaśnia. Atrybut 'data' zadeklarowałeś jako required
w klasach pierwotnych, a nie umieściłeś go w konstrukcji. Dodaj go w
My::ClassC->new().

A potem spróbuj w My::ClassA dodać jeszcze "use
MooseX::StrictConstructor" i zobaczysz dlaczego pierwotnego przykładu
nie należało przepisywać zbyt dosłownie - ale prościej - bo to
Moose :-).

Na wiele pytań można też szybko znaleźć odpowiedzi przy pomocy
Data::Dumper, a jeszcze szybciej przy pomocy perl -d.