46 |
my @roles_to_apply; |
my @roles_to_apply; |
47 |
$rmeta->add_method("apply", sub{push(@roles_to_apply, [@_])}); |
$rmeta->add_method("apply", sub{push(@roles_to_apply, [@_])}); |
48 |
#load the package with the hacked Moose::Meta::Role |
#load the package with the hacked Moose::Meta::Role |
49 |
eval { Class::MOP::load_class($package); }; |
|
50 |
confess "Failed to load package ${package} $@" if $@; |
#eval { Class::MOP::load_class($package); }; |
51 |
|
#confess "Failed to load package ${package} $@" if $@; |
52 |
|
Class::MOP::load_class($package); |
53 |
|
|
54 |
my $meta = $package->meta; |
my $meta = $package->meta; |
55 |
|
|