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

##</code><code>##

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