package My::Class::Foo;
use base 'My::Class';

sub load {
  my ($self,$file) = @_;
  my $path = $self->canonpath( $file );
  # ... some special load 
}

1;