s/_generate_isa_predicte_for/generate_isa_predicate_for/; it's Mouse specific anyway.

[gitmo/Mouse.git] / lib / Mouse / PurePerl.pm

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index 0faa17c..b2c4b67 100644 (file)
--- a/lib/Mouse/PurePerl.pm
+++ b/lib/Mouse/PurePerl.pm
@@ -76,7 +76,7 @@ sub get_code_ref{
     return *{$package . '::' . $name}{CODE};
 }
 
-sub _generate_isa_predicate_for {
+sub generate_isa_predicate_for {
     my($for_class, $name) = @_;
 
     my $predicate = sub{ Scalar::Util::blessed($_[0]) && $_[0]->isa($for_class) };