Re: [OO] Wielokrotne dziedziczenie z jawnym wywołaniem konstruktorów klas bazowych z parametrami

Article View: pl.comp.lang.perl

Article #52116

#52116

From: Michal Jankowski
Date: Thu, 16 Dec 2010 13:03

43 lines
1961 bytes

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

Technical Details

Message-ID: <kjzr5dheupb.fsf@ccfs1.fuw.edu.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.straub-nv.de!newsfeed01.sul.t-online.de!newsfeed00.sul.t-online.de!t-online.de!news.nask.pl!news.nask.org.pl!uw.edu.pl!not-for-mail

References: <ie9uh2$qfj$1@opal.futuro.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.straub-nv.de!newsfeed01.sul.t-online.de!newsfeed00.sul.t-online.de!t-online.de!news.nask.pl!news.nask.org.pl!uw.edu.pl!not-for-mail
From: Michal Jankowski <michalj@fuw.edu.pl>
Newsgroups: pl.comp.lang.perl
Subject: Re: [OO] Wielokrotne dziedziczenie z jawnym
 wywołaniem konstruktorów klas bazowych z parametrami
Date: Thu, 16 Dec 2010 14:03:12 +0100
Organization: Warsaw University, Physics Department
Lines: 43
Message-ID: <kjzr5dheupb.fsf@ccfs1.fuw.edu.pl>
References: <ie9uh2$qfj$1@opal.futuro.pl>
NNTP-Posting-Host: ccfs1.fuw.edu.pl
Mime-Version: 1.0
X-Trace: h1.uw.edu.pl 1292504595 13813 193.0.81.21 (16 Dec 2010 13:03:15 GMT)
X-Complaints-To: usenet@news.uw.edu.pl
NNTP-Posting-Date: 16 Dec 2010 13:03:15 GMT
User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (usg-unix-v)
Cancel-Lock: sha1:UHASbNRP6fyGQuUss6E1zI5VjTs=
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message