test_fn.pl

package MyApp::Base;

sub new {
    my $class = shift;
    my $self = { abc => "def", xyz => "123" };
    bless $self, $class;
    return $self;
}

sub get_abc {
    my $self = shift;
    return "base: " . $self->{ abc };
}

sub get_xyz {
    my $self = shift;
    return "base: " . $self->{ xyz };
}

package MyApp::Obj;

use base 'MyApp::Base';

sub get_abc {
    my $self = shift;
    return "obj: " . $self->SUPER::get_abc(@_);
}

foreach my $fn (qw/get_xyz/) {
    warn $fn;
    *$fn = sub {
        my $self = shift;
#        warn "$fn: " . Dumper(\@);
#        return $self->SUPER::$fn(@_);
        return $self->SUPER::$fn(@_);
    };
}

package main;

my $o = MyApp::Obj->new();
print "abc = " . $o->get_abc() . "\n";
print "xyz = " . $o->get_xyz() . "\n";