use 5.010;

package Parent;
use Moose;
sub who_am_I { shift->meta->name };

package Child;
use Moose;
extends 'Parent';

package main;
say Child->new->who_am_I;
__END__
Child