1 package Role::Tiny::Restricted;
4 use warnings FATAL => 'all';
5 use base qw(Role::Tiny);
7 sub apply_union_of_roles_to_package {
8 my ($me, $to, @roles) = @_;
9 my %app = %{$Role::Tiny::APPLIED_TO{$to}||{}};
13 Carp::confess("with() may not be called more than once for $to");
15 $me->SUPER::apply_union_of_roles_to_package($to, @roles);