| Filename | C:/tmp64ng/perl/lib/ExtUtils/MakeMaker/version.pm |
| Statements | Executed 15 statements in 0s |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 0s | 0s | ExtUtils::MakeMaker::version::BEGIN@13 |
| 1 | 1 | 1 | 0s | 0s | ExtUtils::MakeMaker::version::BEGIN@14 |
| 1 | 1 | 1 | 0s | 0s | ExtUtils::MakeMaker::version::BEGIN@16 |
| 1 | 1 | 1 | 0s | 0s | ExtUtils::MakeMaker::version::BEGIN@38 |
| 0 | 0 | 0 | 0s | 0s | ExtUtils::MakeMaker::version::__ANON__[:51] |
| 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 | 0s | 1 | 0s | # spent 0s within ExtUtils::MakeMaker::version::BEGIN@13 which was called:
# once (0s+0s) by ExtUtils::MakeMaker::BEGIN@10 at line 13 # spent 0s making 1 call to ExtUtils::MakeMaker::version::BEGIN@13 |
| 14 | 2 | 0s | 2 | 0s | # spent 0s within ExtUtils::MakeMaker::version::BEGIN@14 which was called:
# once (0s+0s) by ExtUtils::MakeMaker::BEGIN@10 at line 14 # spent 0s making 1 call to ExtUtils::MakeMaker::version::BEGIN@14
# spent 0s making 1 call to strict::import |
| 15 | |||||
| 16 | 2 | 0s | 2 | 0s | # spent 0s within ExtUtils::MakeMaker::version::BEGIN@16 which was called:
# once (0s+0s) by ExtUtils::MakeMaker::BEGIN@10 at line 16 # spent 0s making 1 call to ExtUtils::MakeMaker::version::BEGIN@16
# spent 0s making 1 call to vars::import |
| 17 | |||||
| 18 | 1 | 0s | $VERSION = '7.04'; | ||
| 19 | 1 | 0s | $CLASS = 'version'; | ||
| 20 | |||||
| 21 | { | ||||
| 22 | 2 | 0s | local $SIG{'__DIE__'}; | ||
| 23 | 1 | 0s | eval "use version"; # spent 0s executing statements in string eval # includes 0s spent executing 1 call to 1 sub defined therein. | ||
| 24 | 1 | 0s | 1 | 0s | if ( $@ ) { # don't have any version.pm installed # spent 0s making 1 call to UNIVERSAL::can |
| 25 | eval "use ExtUtils::MakeMaker::version::vpp"; | ||||
| 26 | die "$@" if ( $@ ); | ||||
| 27 | local $^W; | ||||
| 28 | delete $INC{'version.pm'}; | ||||
| 29 | $INC{'version.pm'} = $INC{'ExtUtils/MakeMaker/version.pm'}; | ||||
| 30 | push @version::ISA, "ExtUtils::MakeMaker::version::vpp"; | ||||
| 31 | $version::VERSION = $VERSION; | ||||
| 32 | *version::qv = \&ExtUtils::MakeMaker::version::vpp::qv; | ||||
| 33 | *version::declare = \&ExtUtils::MakeMaker::version::vpp::declare; | ||||
| 34 | *version::_VERSION = \&ExtUtils::MakeMaker::version::vpp::_VERSION; | ||||
| 35 | *version::vcmp = \&ExtUtils::MakeMaker::version::vpp::vcmp; | ||||
| 36 | *version::new = \&ExtUtils::MakeMaker::version::vpp::new; | ||||
| 37 | if ($] >= 5.009000) { | ||||
| 38 | 2 | 0s | 2 | 0s | # spent 0s within ExtUtils::MakeMaker::version::BEGIN@38 which was called:
# once (0s+0s) by ExtUtils::MakeMaker::BEGIN@10 at line 38 # spent 0s making 1 call to ExtUtils::MakeMaker::version::BEGIN@38
# spent 0s making 1 call to strict::unimport |
| 39 | *version::stringify = \&ExtUtils::MakeMaker::version::vpp::stringify; | ||||
| 40 | *{'version::(""'} = \&ExtUtils::MakeMaker::version::vpp::stringify; | ||||
| 41 | *{'version::(<=>'} = \&ExtUtils::MakeMaker::version::vpp::vcmp; | ||||
| 42 | *version::parse = \&ExtUtils::MakeMaker::version::vpp::parse; | ||||
| 43 | } | ||||
| 44 | require ExtUtils::MakeMaker::version::regex; | ||||
| 45 | *version::is_lax = \&ExtUtils::MakeMaker::version::regex::is_lax; | ||||
| 46 | *version::is_strict = \&ExtUtils::MakeMaker::version::regex::is_strict; | ||||
| 47 | *LAX = \$ExtUtils::MakeMaker::version::regex::LAX; | ||||
| 48 | *STRICT = \$ExtUtils::MakeMaker::version::regex::STRICT; | ||||
| 49 | } | ||||
| 50 | elsif ( ! version->can('is_qv') ) { | ||||
| 51 | *version::is_qv = sub { exists $_[0]->{qv} }; | ||||
| 52 | } | ||||
| 53 | } | ||||
| 54 | |||||
| 55 | 1 | 0s | 1; |