From: gfx <gfuji@cpan.org>
Date: Sat, 24 Oct 2009 04:31:14 +0000 (+0900)
Subject: Lazy load Mouse::Meta::Role
X-Git-Tag: 0.40_01~38
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4340827365f467f303a3b68f9b279371b81292bc;p=gitmo%2FMouse.git

Lazy load Mouse::Meta::Role
---

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index a0ea7c3..f5ddb58 100644
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -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 ();
diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm
index fc80d40..c3c6168 100644
--- a/lib/Mouse/Role.pm
+++ b/lib/Mouse/Role.pm
@@ -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(
diff --git a/t/030_roles/034_create_role.t b/t/030_roles/034_create_role.t
index 25645d7..03a8cb8 100644
--- a/t/030_roles/034_create_role.t
+++ b/t/030_roles/034_create_role.t
@@ -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',
diff --git a/t/030_roles/035_anonymous_roles.t b/t/030_roles/035_anonymous_roles.t
index 08428df..a79d1cc 100644
--- a/t/030_roles/035_anonymous_roles.t
+++ b/t/030_roles/035_anonymous_roles.t
@@ -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 => {
diff --git a/t/030_roles/036_free_anonymous_roles.t b/t/030_roles/036_free_anonymous_roles.t
index 7429765..65b87bf 100644
--- a/t/030_roles/036_free_anonymous_roles.t
+++ b/t/030_roles/036_free_anonymous_roles.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Test::More tests => 4;
-use Mouse ();
+use Mouse::Role ();
 use Scalar::Util 'weaken';
 
 my $weak;