🚀 go-pugleaf

W dniu 2011-01-06 12:20, Ireneusz Pluta pisze:
> 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().

Ale nie mam innego pomysłu, jak go dodać. Atrybut 'data' jest w *obu* 
klasach bazowych, więc należy go sprefixować nazwą klasy, co, jak mi się 
wydawało, próbowałem zrobić. Wywołanie:

$obj = My::ClassC->new	# (*)
(
         'info' => 'help',
         'data' => 11,
         'para' => 4342,
         'parb' => 'ma kota',
);

oczywiście ustawia wartość  (tu: 11) w *obu* klasach bazowych, a nie o 
to przecież chodzi...

Aha, próba wywołania typu:

$obj = My::ClassC->new
(
         'info' => 'help',
         'My::ClassA::data' => 11,
         'My::ClassB::data' => 31,
         'para' => 4342,
         'parb' => 'ma kota',
);

też nie prowadzi do sukcesu. No i pomysły mi się skończyły...

>
> 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.

Dump obiektu po wywołaniu (*) jest taki:

$VAR1 = bless( {}, 'My::ClassC' );
Mamy pustego (rozumiem, że 'zahermetyzowanego' hasza pobłogosławionego 
nazwą klasy. I nie wiem co dalej...

Aha: próba wywołania akcesorów

$obj->My::ClassA::data( 5);
$obj->My::ClassB::data( 7);

też nie kończy się sukcesem. Print jak Cyganka prawdę powie:

print "ClassA::Data=", $obj->My::ClassA::data, "\n";
print "ClassB::Data=", $obj->My::ClassB::data, "\n";

W wyniku dostałem:

ClassA::Data=7
ClassB::Data=7

też źle...

No i chhwilowo pomysły mi się skończyły... Może wieczorkiem poszperam w 
Sieci.

-- 
Pozdrawiam
Jarek Lubczyński
(eljot<NULL>90125 at gmail dot com)
Nawiasy trójkątne z zawartością zbędne są

There are 10 kinds of people:
Those who understand binary and those who don't