package Foo_parent; sub new { print "@_\n"; } package Foo_child; @{'Foo_child::ISA'} = 'Foo_parent'; package Bar; my @args = 1 .. 3; *{'Foo_child::new'} = sub { my $self = shift; $self->SUPER::new( @args ); }; package main; my $foo = Foo_child->new;
Now, without running it, what do you think it should do? My thoughts were:
Foo_child 1 2 3
In fact, what happens is:
Can't locate object method "new" via package "Bar" at ./foo.pl line 17 +.
My question is why doesn't this DWIM? And, how can I make it DWIM? I'm using 5.8.x, if that matters ...
Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |