10 use Mouse::Meta::Role;
17 my $meta = Mouse::Meta::Role->initialize($CALLER);
22 confess "Role does not currently support 'extends'";
40 $caller->meta->add_attribute($name => \%opts);
45 confess "Role does not currently support 'with'";
55 return \&Scalar::Util::blessed;
58 return \&Carp::confess;
62 my $exporter = Sub::Exporter::build_exporter({
64 groups => { default => [':all'] },
80 for my $keyword (keys %exports) {
81 next if $keyword eq 'meta'; # we don't delete this one
82 delete ${ $caller . '::' }{$keyword};