/usr/lib/x86_64-linux-gnu/perl5/5.34/Class/C3
Edit: /usr/lib/x86_64-linux-gnu/perl5/5.34/Class/C3/XS.pm (3106B)
package Class::C3::XS; # git description: v0.14-7-gf53d46e
# ABSTRACT: XS speedups for Class::C3
use 5.006_000;
use strict;
use warnings;
our $VERSION = '0.15';
#pod =pod
#pod
#pod =head1 SYNOPSIS
#pod
#pod use Class::C3; # Automatically loads Class::C3::XS
#pod # if it's installed locally
#pod
#pod =head1 DESCRIPTION
#pod
#pod This contains XS performance enhancers for L
version
#pod 0.16 and higher. The main L package will use this
#pod package automatically if it can find it. Do not use this
#pod package directly, use L instead.
#pod
#pod The test suite here is not complete, although it does verify
#pod a few basic things. The best testing comes from running the
#pod L test suite *after* this module is installed.
#pod
#pod This module won't do anything for you if you're running a
#pod version of L older than 0.16. (It's not a
#pod dependency because it would be circular with the optional
#pod dependency from that package to this one).
#pod
#pod =cut
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;
__END__
=pod
=encoding UTF-8
=head1 NAME
Class::C3::XS - XS speedups for Class::C3
=head1 VERSION
version 0.15
=head1 SYNOPSIS
use Class::C3; # Automatically loads Class::C3::XS
# if it's installed locally
=head1 DESCRIPTION
This contains XS performance enhancers for L version
0.16 and higher. The main L package will use this
package automatically if it can find it. Do not use this
package directly, use L instead.
The test suite here is not complete, although it does verify
a few basic things. The best testing comes from running the
L test suite *after* this module is installed.
This module won't do anything for you if you're running a
version of L older than 0.16. (It's not a
dependency because it would be circular with the optional
dependency from that package to this one).
=head1 SUPPORT
Bugs may be submitted through L
(or L).
=head1 AUTHOR
Brandon L. Black
=head1 CONTRIBUTORS
=for stopwords Florian Ragwitz Karen Etheridge Graham Knop Yuval Kogman
=over 4
=item *
Florian Ragwitz
=item *
Karen Etheridge
=item *
Graham Knop
=item *
Yuval Kogman
=back
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2007 by Brandon L. Black.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut