| Filename | /usr/share/perl/5.36/ExtUtils/MakeMaker/version.pm |
| Statements | Executed 20 statements in 355µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 14µs | 14µs | ExtUtils::MakeMaker::version::BEGIN@13 |
| 1 | 1 | 1 | 5µs | 24µs | ExtUtils::MakeMaker::version::BEGIN@15 |
| 1 | 1 | 1 | 5µs | 43µs | ExtUtils::MakeMaker::version::BEGIN@17 |
| 1 | 1 | 1 | 5µs | 10µs | ExtUtils::MakeMaker::version::BEGIN@40 |
| 1 | 1 | 1 | 4µs | 7µs | ExtUtils::MakeMaker::version::BEGIN@14 |
| 1 | 1 | 1 | 4µs | 17µs | ExtUtils::MakeMaker::version::BEGIN@29 |
| 0 | 0 | 0 | 0s | 0s | ExtUtils::MakeMaker::version::__ANON__[:53] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | #--------------------------------------------------------------------------# | ||||
| 2 | # This is a modified copy of version.pm 0.9909, bundled exclusively for | ||||
| 3 | # use by ExtUtils::Makemaker and its dependencies to bootstrap when | ||||
| 4 | # version.pm is not available. It should not be used by ordinary modules. | ||||
| 5 | # | ||||
| 6 | # When loaded, it will try to load version.pm. If that fails, it will load | ||||
| 7 | # ExtUtils::MakeMaker::version::vpp and alias various *version functions | ||||
| 8 | # to functions in that module. It will also override UNIVERSAL::VERSION. | ||||
| 9 | #--------------------------------------------------------------------------# | ||||
| 10 | |||||
| 11 | package ExtUtils::MakeMaker::version; | ||||
| 12 | |||||
| 13 | 2 | 30µs | 1 | 14µs | # spent 14µs within ExtUtils::MakeMaker::version::BEGIN@13 which was called:
# once (14µs+0s) by ExtUtils::MakeMaker::BEGIN@11 at line 13 # spent 14µs making 1 call to ExtUtils::MakeMaker::version::BEGIN@13 |
| 14 | 2 | 17µs | 2 | 10µs | # spent 7µs (4+2) within ExtUtils::MakeMaker::version::BEGIN@14 which was called:
# once (4µs+2µs) by ExtUtils::MakeMaker::BEGIN@11 at line 14 # spent 7µs making 1 call to ExtUtils::MakeMaker::version::BEGIN@14
# spent 2µs making 1 call to strict::import |
| 15 | 2 | 19µs | 2 | 43µs | # spent 24µs (5+19) within ExtUtils::MakeMaker::version::BEGIN@15 which was called:
# once (5µs+19µs) by ExtUtils::MakeMaker::BEGIN@11 at line 15 # spent 24µs making 1 call to ExtUtils::MakeMaker::version::BEGIN@15
# spent 19µs making 1 call to warnings::import |
| 16 | |||||
| 17 | 2 | 53µs | 2 | 81µs | # spent 43µs (5+38) within ExtUtils::MakeMaker::version::BEGIN@17 which was called:
# once (5µs+38µs) by ExtUtils::MakeMaker::BEGIN@11 at line 17 # spent 43µs making 1 call to ExtUtils::MakeMaker::version::BEGIN@17
# spent 38µs making 1 call to vars::import |
| 18 | |||||
| 19 | 1 | 200ns | $VERSION = '7.64'; | ||
| 20 | 1 | 1µs | $VERSION =~ tr/_//d; | ||
| 21 | 1 | 200ns | $CLASS = 'version'; | ||
| 22 | |||||
| 23 | { | ||||
| 24 | 2 | 2µs | local $SIG{'__DIE__'}; | ||
| 25 | 1 | 18µs | eval "use version"; # spent 9µs executing statements in string eval # includes 7µs spent executing 1 call to 1 sub defined therein. | ||
| 26 | 1 | 6µs | 1 | 1µs | if ( $@ ) { # don't have any version.pm installed # spent 1µs making 1 call to UNIVERSAL::can |
| 27 | eval "use ExtUtils::MakeMaker::version::vpp"; | ||||
| 28 | die "$@" if ( $@ ); | ||||
| 29 | 2 | 63µs | 2 | 30µs | # spent 17µs (4+13) within ExtUtils::MakeMaker::version::BEGIN@29 which was called:
# once (4µs+13µs) by ExtUtils::MakeMaker::BEGIN@11 at line 29 # spent 17µs making 1 call to ExtUtils::MakeMaker::version::BEGIN@29
# spent 13µs making 1 call to warnings::unimport |
| 30 | delete $INC{'version.pm'}; | ||||
| 31 | $INC{'version.pm'} = $INC{'ExtUtils/MakeMaker/version.pm'}; | ||||
| 32 | push @version::ISA, "ExtUtils::MakeMaker::version::vpp"; | ||||
| 33 | $version::VERSION = $VERSION; | ||||
| 34 | *version::qv = \&ExtUtils::MakeMaker::version::vpp::qv; | ||||
| 35 | *version::declare = \&ExtUtils::MakeMaker::version::vpp::declare; | ||||
| 36 | *version::_VERSION = \&ExtUtils::MakeMaker::version::vpp::_VERSION; | ||||
| 37 | *version::vcmp = \&ExtUtils::MakeMaker::version::vpp::vcmp; | ||||
| 38 | *version::new = \&ExtUtils::MakeMaker::version::vpp::new; | ||||
| 39 | if ("$]" >= 5.009000) { | ||||
| 40 | 2 | 128µs | 2 | 15µs | # spent 10µs (5+5) within ExtUtils::MakeMaker::version::BEGIN@40 which was called:
# once (5µs+5µs) by ExtUtils::MakeMaker::BEGIN@11 at line 40 # spent 10µs making 1 call to ExtUtils::MakeMaker::version::BEGIN@40
# spent 5µs making 1 call to strict::unimport |
| 41 | *version::stringify = \&ExtUtils::MakeMaker::version::vpp::stringify; | ||||
| 42 | *{'version::(""'} = \&ExtUtils::MakeMaker::version::vpp::stringify; | ||||
| 43 | *{'version::(<=>'} = \&ExtUtils::MakeMaker::version::vpp::vcmp; | ||||
| 44 | *version::parse = \&ExtUtils::MakeMaker::version::vpp::parse; | ||||
| 45 | } | ||||
| 46 | require ExtUtils::MakeMaker::version::regex; | ||||
| 47 | *version::is_lax = \&ExtUtils::MakeMaker::version::regex::is_lax; | ||||
| 48 | *version::is_strict = \&ExtUtils::MakeMaker::version::regex::is_strict; | ||||
| 49 | *LAX = \$ExtUtils::MakeMaker::version::regex::LAX; | ||||
| 50 | *STRICT = \$ExtUtils::MakeMaker::version::regex::STRICT; | ||||
| 51 | } | ||||
| 52 | elsif ( ! version->can('is_qv') ) { | ||||
| 53 | *version::is_qv = sub { exists $_[0]->{qv} }; | ||||
| 54 | } | ||||
| 55 | } | ||||
| 56 | |||||
| 57 | 1 | 16µs | 1; |