sub foo my self shift self- bar 42

1
2
3
4
sub foo {
my $self = shift;
$self->bar(42);
}