I had to test, and it appears to be the case:
#!/usr/bin/perl -w package A; sub new { bless {}, shift } package B; sub new { bless {}, shift } sub blarf { print "B::blarf\n" } package C; @ISA = qw/A B/; sub blarf { my($self) = @_; print "C::blarf\n"; $self->SUPER::blarf; } package main; C->new->blarf; __END__ % perl ~/super.pl C::blarf B::blarf
In reply to Re^4: tracing SUPER
by gaal
in thread tracing SUPER
by Ranger Rick
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |