package My::Class;
use base 'More::Generic';

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

1;