package Foo;

sub new {return bless {} => shift}
sub oogle {my $shelf = shift; $self -> {key} = shift}


package Bar;
our @ISA = qw /Foo/;

sub gurgle {my $self = shift; $self -> {key} = shift;}