X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FC3%2FXS.pm;h=9183abf04c5eb3c91c255d30269b70204098360b;hb=32b8c8e22db4df8752650e4ab463057f6e98c43d;hp=657cdefc292edff2a316568a5168d60c9e454041;hpb=9ad24e9168a38776ad55ec48b38b21259fdb7e51;p=gitmo%2FClass-C3-XS.git

diff --git a/lib/Class/C3/XS.pm b/lib/Class/C3/XS.pm
index 657cdef..9183abf 100644
--- a/lib/Class/C3/XS.pm
+++ b/lib/Class/C3/XS.pm
@@ -1,10 +1,10 @@
 package Class::C3::XS;
 
-use 5.008_000;
+use 5.006_000;
 use strict;
 use warnings;
 
-our $VERSION = '0.02';
+our $VERSION = '0.09';
 
 =pod
 
@@ -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;