sub foo {
    my $self  = shift;
    $self->bar( "do something" );
}