The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package SomePackage;

use base ParentPackage;

use Class::Mockable
    _returnvalue => 94,
    methods => {
        _wrapped_method           => 'wrapped_method',
        _wrapped_method_in_parent => 'wrapped_method_in_parent',
    };

sub get_returnvalue {
    my $class = shift;
    return _returnvalue();
}

sub wrapped_method {
    my $class = shift;
    return "wrapped method";
}

1;