$ perl -le' { package Role; use Moose::Role; sub m {} } { package Class; use Moose; with "Role"; } use Sub::Identify qw( stash_name ); print stash_name( Class->new->can("m") ); ' Role