X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FMethod%2FConstructor.pm;h=c295e429e6c324a24467f7c7b0bea404c72e3fc6;hb=a0e95742d64c3965acf708b3beae14de5bfff766;hp=e90de79f9c598cea4fdde15e48f14c3a27ea6e26;hpb=403cfbeccca4e7750da88c52ad7fd81f35a7e9a7;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Method/Constructor.pm b/lib/Class/MOP/Method/Constructor.pm index e90de79..c295e42 100644 --- a/lib/Class/MOP/Method/Constructor.pm +++ b/lib/Class/MOP/Method/Constructor.pm @@ -7,11 +7,11 @@ use warnings; use Carp 'confess'; use Scalar::Util 'blessed', 'weaken', 'looks_like_number'; -our $VERSION = '0.82'; +our $VERSION = '0.82_02'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; -use base 'Class::MOP::Method::Generated'; +use base 'Class::MOP::Method::Inlined'; sub new { my $class = shift; @@ -52,8 +52,6 @@ sub _new { }, $class; } -sub can_be_inlined { 1 } - ## accessors sub options { (shift)->{'options'} } @@ -268,12 +266,6 @@ inlined. This returns the L object for the method. -=item B<< $metamethod->can_be_inlined >> - -This method always returns true in this class. It exists so that -subclasses (as in Moose) can do some sort of checking to determine -whether or not inlining the constructor is safe. - =back =head1 AUTHORS