sub method {
    my $self=shift;
    my $return=$self->SUPER::method;
    # do something
    return $return
}