X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FPurePerl.pm;fp=lib%2FMouse%2FPurePerl.pm;h=0e5ed43c7c06b9f22b43dec9124dc868d266d74c;hp=174f4a94c717776a5e72c2c992a5b89022387155;hb=568f88f209d3a7d30ed799f3434dd865842d1aa3;hpb=559f35335d5ddba6baeff5a8a50c0d67a3297c87 diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm index 174f4a9..0e5ed43 100644 --- a/lib/Mouse/PurePerl.pm +++ b/lib/Mouse/PurePerl.pm @@ -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} }