From: gfx <gfuji@cpan.org>
Date: Sun, 20 Sep 2009 07:13:01 +0000 (+0900)
Subject: Creanup
X-Git-Tag: 0.32~44
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=afc73948d1c8d2f34ec6242a08945184d9bb4b75;p=gitmo%2FMouse.git

Creanup
---

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 7d7d1a0..6b75adf 100644
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -63,14 +63,7 @@ sub _construct_class_instance {
     bless \%args, $class;
 }
 
-sub name { $_[0]->{package} }
-sub _method_map{ $_[0]->{methods} }
-
-sub namespace{
-    my $name = $_[0]->{package};
-    no strict 'refs';
-    return \%{ $name . '::' };
-}
+sub roles { $_[0]->{roles} }
 
 sub superclasses {
     my $self = shift;
@@ -276,9 +269,6 @@ sub add_override_method_modifier {
     *$method = sub { $code->($pkg, $body, @_) };
 }
 
-
-sub roles { $_[0]->{roles} }
-
 sub does_role {
     my ($self, $role_name) = @_;
 
diff --git a/lib/Mouse/Meta/Role.pm b/lib/Mouse/Meta/Role.pm
index ff0c439..403b781 100644
--- a/lib/Mouse/Meta/Role.pm
+++ b/lib/Mouse/Meta/Role.pm
@@ -39,6 +39,9 @@ sub _new {
     bless \%args, $class;
 }
 
+sub get_roles { $_[0]->{roles} }
+
+
 sub add_required_methods {
     my $self = shift;
     my @methods = @_;
@@ -229,8 +232,6 @@ for my $modifier_type (qw/before after around override/) {
     *{ 'get_' . $modifier_type . '_method_modifiers' } = $get_method_modifiers;
 }
 
-sub get_roles { $_[0]->{roles} }
-
 # This is currently not passing all the Moose tests.
 sub does_role {
     my ($self, $role_name) = @_;