use Carp 'confess';
use Scalar::Util 'weaken', 'reftype', 'blessed';
-our $VERSION = '0.90';
+our $VERSION = '0.92';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
} => $class;
}
-## accessors
-
-sub associated_metaclass { shift->{'associated_metaclass'} }
-
sub attach_to_class {
my ( $self, $class ) = @_;
$self->{associated_metaclass} = $class;
$self->package_name . '::' . $self->name;
}
-sub original_method { (shift)->{'original_method'} }
-
-sub _set_original_method { $_[0]->{'original_method'} = $_[1] }
# It's possible that this could cause a loop if there is a circular
# reference in here. That shouldn't ever happen in normal
=item B<< Class::MOP::Method->wrap($code, %options) >>
-This is the constructor. It accepts a subroutine reference and a hash
-of options.
+This is the constructor. It accepts a method body in the form of
+either a code reference or a L<Class::MOP::Method> instance, followed
+by a hash of options.
The options are:
=item * name
-The method name (without a package name). This is required.
+The method name (without a package name). This is required if C<$code>
+is a coderef.
=item * package_name
-The package name for the method. This is required.
+The package name for the method. This is required if C<$code> is a
+coderef.
=item * associated_metaclass