sub my_function {
    my $self = shift;
    my $parm = shift;
    return $self->{parm};
}

##</code><code>##

sub my_function { shift->{shift} }