line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# This is a MODIFIED version of builtin.pm, installed by builtin::Backport |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
package builtin 0.008; |
4
|
|
|
|
|
|
|
|
5
|
11
|
|
|
11
|
|
5812
|
use strict; |
|
11
|
|
|
|
|
81
|
|
|
11
|
|
|
|
|
313
|
|
6
|
11
|
|
|
11
|
|
53
|
use warnings; |
|
11
|
|
|
|
|
21
|
|
|
11
|
|
|
|
|
911
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
# On the latest version of Perl: |
9
|
|
|
|
|
|
|
# All code, including &import, is implemented by always-present functions in |
10
|
|
|
|
|
|
|
# the perl interpreter itself. |
11
|
|
|
|
|
|
|
# See also `builtin.c` in perl source |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
# On previous versions of Perl: |
14
|
|
|
|
|
|
|
# We need to import XS code from builtin.xs |
15
|
|
|
|
|
|
|
if( $^V lt v5.38.0 ) { |
16
|
|
|
|
|
|
|
require XSLoader; |
17
|
|
|
|
|
|
|
require builtin::Backport; |
18
|
|
|
|
|
|
|
# We use the version number from builtin::Backport, NOT this file |
19
|
|
|
|
|
|
|
XSLoader::load( __PACKAGE__, $builtin::Backport::VERSION ); |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |
23
|
|
|
|
|
|
|
__END__ |