X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;h=6b75adfa16fe3d11eec800a1b849a6c9ba284f56;hp=7d7d1a0ecd01c9deca6c7c5207d5a3540e1cb674;hb=afc73948d1c8d2f34ec6242a08945184d9bb4b75;hpb=a81cc7b83f688ff21284b599a81e14a44bcdf401 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) = @_;