X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FMethod%2FAccessor.pm;h=dfef5f7f45488f9c807c59dbde33b639c95bc706;hb=6e1c8b63d87c6e1d8e84e15cc2c1f5336780515b;hp=d9b938212faa25758598ad25c3a4bddad1b6646b;hpb=6c34db07326ebe4a50267275bdea7ed9d83ea510;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Method/Accessor.pm b/lib/Class/MOP/Method/Accessor.pm index d9b9382..dfef5f7 100644 --- a/lib/Class/MOP/Method/Accessor.pm +++ b/lib/Class/MOP/Method/Accessor.pm @@ -7,7 +7,7 @@ use warnings; use Carp 'confess'; use Scalar::Util 'blessed', 'weaken'; -our $VERSION = '0.03'; +our $VERSION = '0.63'; our $AUTHORITY = 'cpan:STEVAN'; use base 'Class::MOP::Method::Generated'; @@ -26,7 +26,7 @@ sub new { || confess "You must supply an attribute which is a 'Class::MOP::Attribute' instance"; ($options{package_name} && $options{name}) - || confess "You must supply the package_name and name parameters"; + || confess "You must supply the package_name and name parameters $Class::MOP::Method::UPGRADE_ERROR_TEXT"; my $self = bless { # from our superclass