preping for the 0.01 release

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

diff --git a/lib/Class/MOP/Method.pm b/lib/Class/MOP/Method.pm
index a15bd0f..75205b2 100644 (file)
--- a/lib/Class/MOP/Method.pm
+++ b/lib/Class/MOP/Method.pm
@@ -4,7 +4,25 @@ package Class::MOP::Method;
 use strict;
 use warnings;
 
+use Carp         'confess';
+use Scalar::Util 'reftype';
+
 our $VERSION = '0.01';
+
+sub meta { 
+    require Class::MOP::Class;
+    Class::MOP::Class->initialize($_[0]) 
+}
+
+sub wrap { 
+    my $class = shift;
+    my $code  = shift;
+    
+    (reftype($code) && reftype($code) eq 'CODE')
+        || confess "You must supply a CODE reference to wrap";
+    
+    bless $code => $class;
+}
  
 1;
 
@@ -18,11 +36,36 @@ Class::MOP::Method - Method Meta Object
 
 =head1 SYNOPSIS
 
+  # ... more to come later maybe
+
 =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. 
+
+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. 
+
+=head1 METHODS
+
+=over 4
+
+=item B<wrap (&code)>
+
+This simply blesses the C<&code> reference passed to it.
+
+=item B<meta>
+
+This will return a B<Class::MOP::Class> instance which is related 
+to this class.
+
+=back
+
 =head1 AUTHOR
 
-Stevan Little E<gt>stevan@iinteractive.comE<lt>
+Stevan Little E<lt>stevan@iinteractive.comE<gt>
 
 =head1 COPYRIGHT AND LICENSE