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