2 package Class::MOP::Method;
8 use Scalar::Util 'reftype';
10 use Class::MOP::Class;
12 our $VERSION = '0.01';
14 sub meta { Class::MOP::Class->initialize($_[0]) }
20 (reftype($code) && reftype($code) eq 'CODE')
21 || confess "You must supply a CODE reference to wrap";
23 bless $code => $class;
34 Class::MOP::Method - Method Meta Object
40 The Method Protocol is very small, since methods in Perl 5 are just
41 subroutines within the particular package. Basically all we do is to
42 bless the subroutine and provide some very simple introspection
57 Stevan Little E<gt>stevan@iinteractive.comE<lt>
59 =head1 COPYRIGHT AND LICENSE
61 Copyright 2006 by Infinity Interactive, Inc.
63 L<http://www.iinteractive.com>
65 This library is free software; you can redistribute it and/or modify
66 it under the same terms as Perl itself.