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;
=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 and provide some very simple introspection
-methods for it.
+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