name 'Mouse';
all_from 'lib/Mouse.pm';
-requires 'Class::Method::Modifiers' => '1.01';
-
build_requires 'Test::More';
build_requires 'Test::Exception';
use Mouse::Util qw/get_linear_isa blessed/;
use Carp 'confess';
-use Class::Method::Modifiers ();
-
do {
my %METACLASS_CACHE;
sub add_before_method_modifier {
my ($self, $name, $code) = @_;
+ require Class::Method::Modifiers;
Class::Method::Modifiers::_install_modifier(
$self->name,
'before',
sub add_around_method_modifier {
my ($self, $name, $code) = @_;
+ require Class::Method::Modifiers;
Class::Method::Modifiers::_install_modifier(
$self->name,
'around',
sub add_after_method_modifier {
my ($self, $name, $code) = @_;
+ require Class::Method::Modifiers;
Class::Method::Modifiers::_install_modifier(
$self->name,
'after',