my $old = \&method;
{
    no warnings 'redefine';
    *method = sub {
        # Do something new
        my @return = $old->( @args );
        # Do something else
    };
}