Inheritance in Perl is handled via the @ISA array. You should be able to do something like this:
package MyModule; use Storable; use vars qw(@ISA); @ISA=qw(Storable); #oops! original had quotes in it. # other methods # overrides Storable's thaw sub thaw { my $this = shift; $this->SUPER::thaw( @_ ); $this->post_loaded_function(); } 1;
HTH
In reply to Re: Using Storable effectively
by arturo
in thread Using Storable effectively
by Hrunting
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |