X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FPurePerl.pm;h=b0656d9e5d6aec23cf97396b5b1956454f65f137;hb=66e3df7a8d3d839b53f6fc3af8f4bad6fc27fefe;hp=b3fef1b3e1a82ccec491829c810d901c5b6c4480;hpb=bf6f1f40bba06b1a95bc69869a6d3cf152d97b8f;p=gitmo%2FMouse.git diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm index b3fef1b..b0656d9 100644 --- a/lib/Mouse/PurePerl.pm +++ b/lib/Mouse/PurePerl.pm @@ -589,7 +589,7 @@ sub _process_options{ if ($args->{lazy}) { (exists $args->{default} || defined $args->{builder}) - || $class->throw_error("You cannot have lazy attribute ($name) without specifying a default value for it"); + || $class->throw_error("You cannot have a lazy attribute ($name) without specifying a default value for it"); } return; @@ -613,7 +613,6 @@ sub _identity { Scalar::Util::refaddr($_[0]) } # overload 0+ sub type_parameter { $_[0]->{type_parameter} } sub _compiled_type_constraint{ $_[0]->{compiled_type_constraint} } -sub _compiled_type_coercion { $_[0]->{_compiled_type_coercion} } sub __is_parameterized { exists $_[0]->{type_parameter} } sub has_coercion { exists $_[0]->{_compiled_type_coercion} } @@ -750,7 +749,7 @@ Mouse::PurePerl - A Mouse guts in pure Perl =head1 VERSION -This document describes Mouse version 0.83 +This document describes Mouse version 0.88 =head1 SEE ALSO