Server IP : 85.214.239.14 / Your IP : 18.224.43.98 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/3/cwd/proc/3/root/usr/lib/x86_64-linux-gnu/perl5/5.36/Class/C3/ |
Upload File : |
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<Class::C3> version #pod 0.16 and higher. The main L<Class::C3> package will use this #pod package automatically if it can find it. Do not use this #pod package directly, use L<Class::C3> 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<Class::C3> 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<Class::C3> 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<Class::C3> version 0.16 and higher. The main L<Class::C3> package will use this package automatically if it can find it. Do not use this package directly, use L<Class::C3> instead. The test suite here is not complete, although it does verify a few basic things. The best testing comes from running the L<Class::C3> test suite *after* this module is installed. This module won't do anything for you if you're running a version of L<Class::C3> 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<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Class-C3-XS> (or L<bug-Class-C3-XS@rt.cpan.org|mailto:bug-Class-C3-XS@rt.cpan.org>). =head1 AUTHOR Brandon L. Black <blblack@gmail.com> =head1 CONTRIBUTORS =for stopwords Florian Ragwitz Karen Etheridge Graham Knop Yuval Kogman =over 4 =item * Florian Ragwitz <rafl@debian.org> =item * Karen Etheridge <ether@cpan.org> =item * Graham Knop <haarg@haarg.org> =item * Yuval Kogman <nothingmuch@woobling.org> =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