fix broken gotos for Catalyst::Plugin::C3, added slightly modified next::method tests...

[gitmo/Class-C3-XS.git] / lib / Class / C3 / XS.pm

diff --git a/lib/Class/C3/XS.pm b/lib/Class/C3/XS.pm
index 96f31f1..10e41fe 100644 (file)
--- a/lib/Class/C3/XS.pm
+++ b/lib/Class/C3/XS.pm
@@ -47,4 +47,23 @@ it under the same terms as Perl itself.
 require XSLoader;
 XSLoader::load('Class::C3::XS', $VERSION);
 
+package # hide me from PAUSE
+    next;
+
+sub can { Class::C3::XS::_nextcan($_[0], 0) }
+
+sub method {
+    my $method = Class::C3::XS::_nextcan($_[0], 1);
+    goto &$method;
+}
+
+package # hide me from PAUSE
+    maybe::next;
+
+sub method {
+    my $method = Class::C3::XS::_nextcan($_[0], 0);
+    goto &$method if defined $method;
+    return;
+}
+
 1;