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