cleaning up Changes and docs

[gitmo/Class-MOP.git] / lib / Class / MOP / Method.pm

diff --git a/lib/Class/MOP/Method.pm b/lib/Class/MOP/Method.pm
index 16fc8ad..06123a6 100644 (file)
--- a/lib/Class/MOP/Method.pm
+++ b/lib/Class/MOP/Method.pm
@@ -8,9 +8,11 @@ use Carp         'confess';
 use Scalar::Util 'reftype', 'blessed';
 use B            'svref_2object';
 
-our $VERSION   = '0.03';
+our $VERSION   = '0.04';
 our $AUTHORITY = 'cpan:STEVAN';
 
+use base 'Class::MOP::Object';
+
 # NOTE:
 # if poked in the right way, 
 # they should act like CODE refs.
@@ -39,6 +41,8 @@ sub wrap {
 
 sub body { (shift)->{body} }
 
+# TODO - add associated_class
+
 # informational
 
 # NOTE: 
@@ -75,7 +79,8 @@ use Carp         'confess';
 use Scalar::Util 'reftype', 'blessed';
 use Sub::Name    'subname';
 
-our $VERSION = '0.01';
+our $VERSION   = '0.02';
+our $AUTHORITY = 'cpan:STEVAN';
 
 use base 'Class::MOP::Method'; 
 
@@ -218,12 +223,11 @@ Class::MOP::Method - Method Meta Object
 =head1 DESCRIPTION
 
 The Method Protocol is very small, since methods in Perl 5 are just 
-subroutines within the particular package. Basically all we do is to 
-bless the subroutine. 
+subroutines within the particular package. We provide a very basic 
+introspection interface.
 
-Currently this package is largely unused. Future plans are to provide 
-some very simple introspection methods for the methods themselves. 
-Suggestions for this are welcome. 
+This also contains the Class::MOP::Method::Wrapped subclass, which 
+provides the features for before, after and around method modifiers.
 
 =head1 METHODS
 
@@ -244,8 +248,6 @@ to this class.
 
 =item B<wrap (&code)>
 
-This simply blesses the C<&code> reference passed to it.
-
 =back
 
 =head2 Informational
@@ -270,8 +272,6 @@ This simply blesses the C<&code> reference passed to it.
 
 =item B<wrap (&code)>
 
-This simply blesses the C<&code> reference passed to it.
-
 =item B<get_original_method>
 
 =back