test_fn.pl

package MyApp::Base;

use Moose;

has 'abc' => ( is => 'ro', lazy => 1, default => 'def', reader => 'get_abc' );
has 'xyz' => ( is => 'ro', lazy => 1, default => 123,   reader => 'get_xyz' );

around [qw/get_abc get_xyz/] => sub {
    my ($orig, $self) = shift;
    return "base: " . $self->$orig;
};

package MyApp::Obj;

use Moose;
extends 'MyApp::Base';

around [qw/get_abc get_xyz/] => sub {
   my ($orig, $self) = shift;
   return "child: " . $self->$orig;
};

package main;

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