Select Code to Download

sub foo {
     return shift()->{foo};
}

package Foo;

sub with_shift {
...

        return $self->{foo};
}