Lazy load Mouse::Meta::Role
gfx [Sat, 24 Oct 2009 04:31:14 +0000 (13:31 +0900)]
lib/Mouse.pm
lib/Mouse/Role.pm
t/030_roles/034_create_role.t
t/030_roles/035_anonymous_roles.t
t/030_roles/036_free_anonymous_roles.t

index a0ea7c3..f5ddb58 100644 (file)
@@ -12,7 +12,6 @@ use Mouse::Util qw(load_class is_class_loaded get_code_package not_supported);
 
 use Mouse::Meta::Module;
 use Mouse::Meta::Class;
-use Mouse::Meta::Role;
 use Mouse::Meta::Attribute;
 use Mouse::Object;
 use Mouse::Util::TypeConstraints ();
index fc80d40..c3c6168 100644 (file)
@@ -7,7 +7,7 @@ use Carp         qw(confess);
 use Scalar::Util qw(blessed);
 
 use Mouse::Util  qw(not_supported);
-
+use Mouse::Meta::Role;
 use Mouse ();
 
 Mouse::Exporter->setup_import_methods(
index 25645d7..03a8cb8 100644 (file)
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Test::More tests => 4;
-use Mouse ();
+use Mouse::Role ();
 
 my $role = Mouse::Meta::Role->create(
     'MyItem::Role::Equipment',
index 08428df..a79d1cc 100644 (file)
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Test::More tests => 7;
-use Mouse ();
+use Mouse::Role ();
 
 my $role = Mouse::Meta::Role->create_anon_role(
     attributes => {
index 7429765..65b87bf 100644 (file)
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Test::More tests => 4;
-use Mouse ();
+use Mouse::Role ();
 use Scalar::Util 'weaken';
 
 my $weak;