X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FMethod.pm;h=515f8c7aee029a0a439dbe6f9141e17a62f8556c;hb=eca95e0476ae5a66144c4fd1f4a23c2ba4bdbf26;hp=0872a59dec88f3e462b5cd32ba7362f873ef6f9e;hpb=b4bd10ecd2eabe1a2c1bc3addad22b207f6592ee;p=gitmo%2FClass-MOP.git

diff --git a/lib/Class/MOP/Method.pm b/lib/Class/MOP/Method.pm
index 0872a59..515f8c7 100644
--- a/lib/Class/MOP/Method.pm
+++ b/lib/Class/MOP/Method.pm
@@ -7,7 +7,7 @@ use warnings;
 use Carp         'confess';
 use Scalar::Util 'weaken';
 
-our $VERSION   = '0.77';
+our $VERSION   = '0.78';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
@@ -64,8 +64,6 @@ sub _new {
 
 ## accessors
 
-sub body { (shift)->{'body'} }
-
 sub associated_metaclass { shift->{'associated_metaclass'} }
 
 sub attach_to_class {
@@ -79,10 +77,6 @@ sub detach_from_class {
     delete $self->{associated_metaclass};
 }
 
-sub package_name { (shift)->{'package_name'} }
-
-sub name { (shift)->{'name'} }
-
 sub fully_qualified_name {
     my $self = shift;
     $self->package_name . '::' . $self->name;