/usr/lib/x86_64-linux-gnu/perl5/5.24/Class/C3/XS.pm is in libclass-c3-xs-perl 0.14-1+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 | package Class::C3::XS; # git description: 0.13-10-g9f1c5a6
# ABSTRACT: XS speedups for Class::C3
use 5.006_000;
use strict;
use warnings;
our $VERSION = '0.14';
#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.14
=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
|