Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re^2: Creating dynamic parent/child relationships

by nysus (Vicar)
on Sep 03, 2019 at 17:14 UTC ( #11105520=note: print w/replies, xml ) Need Help??

in reply to Re: Creating dynamic parent/child relationships
in thread Creating dynamic parent/child relationships

Ok, I'm having trouble wrapping my head around your example. And I'm not sure if things are complicated by my particular situation because I rely on SUPER calls. Here's a simplified representation of the classes that have the relationships hard coded:

package Base ; sub new { my $class = shift; bless {}, $class; } sub do { my $s = shift; print "hi Base here\n"; } package One ; use parent 'Base'; sub do { my $s = shift; $s->SUPER::do; print "hi from pkg one\n"; } package Two ; use parent 'One'; sub do { my $s = shift; $s->SUPER::do; print "hi from pkg two\n"; } package Three ; use parent 'Two'; sub do { my $s = shift; $s->SUPER::do; print "hi from pkg Three\n"; }

And then in a script:

my $three = Three->new; $three->do;
This, of course, outputs:
hi Base here hi from pkg one hi from pkg two hi from pkg Three

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11105520]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2021-01-24 13:34 GMT
Find Nodes?
    Voting Booth?