From further down in that same doc...use strict; use Class::Prototyped ':EZACCESS'; my $Dad = Class::Prototyped->new( hello => sub { print "Hiya from $Dad!\n" } ); my $Me = Class::Prototyped::new( 'parent*' => $Dad hello => sub { # ??? print "I'm just a WILD AND CRAZY GUY!\n"; } );
The "hello!" here is the same as [qw(hello METHOD superable)]'hello!' => sub { my $self = shift; my $mirror = $self->reflect; $mirror->super(@args_to_dad_hello); my code here; }
-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.
In reply to Re^5: Skipping the middle man & the SUPER gotcha
by merlyn
in thread Skipping the middle man & the SUPER gotcha
by tlm
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |