use 5.010; use strict; use warnings; { package C1; use Moose; sub test { return "".(inner()//'').""; } } { package C2; use Moose; extends 'C1'; } my $c2 = C2->new; say $c2->test; __END__