package Parent;

use Moose;

sub who_am_i{
   return __PACKAGE__;
}


package Child;

extends 'Parent';

... some specific Child methods ...


##</code><code>##

my $child = Child->new;
print $child->who_am_i;