🚀 go-pugleaf

W dniu 2010-12-16 14:03, Michal Jankowski pisze:
> A może tak? 8-)
>
> -=-=-=-=-=-=-=
>
> package My::ClassA; {
>       use Object::InsideOut;
>
>       my @data :Field :Std_All(costam);
>       my @para :Field :Std_All(para);
>   }
>
> package My::ClassB; {
>       use Object::InsideOut;
>
>       my @data :Field :Std_All(costam);
>       my @parb :Field :Std_All(parb);
>   }
>
>   package My::ClassC; {
>       use Object::InsideOut qw(My::ClassA My::ClassB);
>       my @info :Field :Std_All(info);
>   }
>
>   package main;
>
>   $obj = My::ClassC->new(
>      'info' =>  'help',
>      'My::ClassA'  =>  {'costam' =>  11},
>      'My::ClassB'  =>  {'costam' =>  33},
>       'para' =>  4342,
>       'parb' =>  'ma kota',
>      );
>
>   print $obj->My::ClassA::get_costam(), "\n";
>   print $obj->My::ClassB::get_costam(), "\n";
>   print $obj->get_para(), "\n";
>   print $obj->get_parb(), "\n";
>   print $obj->get_info(), "\n";
> -=-=-=-=-=-=-=
>
> Wesołego
>
>    MJ

Dżizas!
Jedenaste: Nie używaj kodu, którego nie rozumiesz ;-)
(to o mnie ofkosz).

Dzięki, pakiet instaluję ale o atrybutach muszę się jeszcze nieco 
douczyć... :). Mało znam Perla, za mało...

PS. Zainstalowałem Object::InsideOut, kod działa w use strict po drobnej 
poprawce, mam co analizować przez łyk-end, dzięki :)

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