Profile of version.pm

Filename	C:/tmp64ng/perl/lib/version.pm
Statements	Executed 97 statements in 0s

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	0s	0s	version::::(boolversion::(bool (xsub)
1	1	1	0s	0s	version::::(cmpversion::(cmp (xsub)
1	1	1	0s	0s	version::::BEGIN@11version::BEGIN@11
1	1	1	0s	0s	version::::BEGIN@33version::BEGIN@33
1	1	1	0s	0s	version::::BEGIN@4version::BEGIN@4
1	1	1	0s	0s	version::::BEGIN@5version::BEGIN@5
1	1	1	0s	0s	version::::BEGIN@51version::BEGIN@51
1	1	1	0s	0s	version::::BEGIN@6version::BEGIN@6
1	1	1	0s	0s	version::::BEGIN@68version::BEGIN@68
0	0	0	0s	0s	version::::__ANON__[:100]version::__ANON__[:100]
0	0	0	0s	0s	version::::__ANON__[:94]version::__ANON__[:94]
4	2	2	0s	0s	version::::importversion::import
9	1	1	0s	0s	version::::is_qvversion::is_qv (xsub)

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					#!perl -w
2					package version;
3
4	2	0s	1	0s	# spent 0s within version::BEGIN@4 which was called: # once (0s+0s) by ExtUtils::MakeMaker::version::BEGIN@2 at line 4 use 5.006002; # spent 0s making 1 call to version::BEGIN@4
5	2	0s	2	0s	# spent 0s within version::BEGIN@5 which was called: # once (0s+0s) by ExtUtils::MakeMaker::version::BEGIN@2 at line 5 use strict; # spent 0s making 1 call to strict::import # spent 0s making 1 call to version::BEGIN@5
6	2	0s	2	0s	# spent 0s within version::BEGIN@6 which was called: # once (0s+0s) by ExtUtils::MakeMaker::version::BEGIN@2 at line 6 use warnings::register; # spent 0s making 1 call to version::BEGIN@6 # spent 0s making 1 call to warnings::register::import
7	1	0s	1	0s	if ($] >= 5.015) { # spent 0s making 1 call to warnings::register_categories
8					warnings::register_categories(qw/version/);
9					}
10
11	2	0s	2	0s	# spent 0s within version::BEGIN@11 which was called: # once (0s+0s) by ExtUtils::MakeMaker::version::BEGIN@2 at line 11 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX declare qv); # spent 0s making 1 call to vars::import # spent 0s making 1 call to version::BEGIN@11
12
13	1	0s			$VERSION = 0.9912;
14	1	0s			$CLASS = 'version';
15
16					# !!!!Delete this next block completely when adding to Perl core!!!!
17					{
18	2	0s			local $SIG{'__DIE__'};
19	1	0s			eval "use version::vxs $VERSION"; # spent 0s executing statements in string eval # includes 0s spent executing 1 call to 1 sub defined therein.
20	1	0s			if ( $@ ) { # don't have the XS version installed
21					eval "use version::vpp $VERSION"; # don't tempt fate
22					die "$@" if ( $@ );
23					push @ISA, "version::vpp";
24					local $^W;
25					*version::qv = \&version::vpp::qv;
26					*version::declare = \&version::vpp::declare;
27					*version::_VERSION = \&version::vpp::_VERSION;
28					*version::vcmp = \&version::vpp::vcmp;
29					*version::new = \&version::vpp::new;
30					*version::numify = \&version::vpp::numify;
31					*version::normal = \&version::vpp::normal;
32					if ($] >= 5.009000) {
33	2	0s	2	0s	# spent 0s within version::BEGIN@33 which was called: # once (0s+0s) by ExtUtils::MakeMaker::version::BEGIN@2 at line 33 no strict 'refs'; # spent 0s making 1 call to strict::unimport # spent 0s making 1 call to version::BEGIN@33
34					*version::stringify = \&version::vpp::stringify;
35					*{'version::(""'} = \&version::vpp::stringify;
36					*{'version::(<=>'} = \&version::vpp::vcmp;
37					*version::parse = \&version::vpp::parse;
38					}
39					}
40					else { # use XS module
41	1	0s			push @ISA, "version::vxs";
42	1	0s			local $^W;
43	1	0s			*version::declare = \&version::vxs::declare;
44	1	0s			*version::qv = \&version::vxs::qv;
45	1	0s			*version::_VERSION = \&version::vxs::_VERSION;
46	1	0s			*version::vcmp = \&version::vxs::VCMP;
47	1	0s			*version::new = \&version::vxs::new;
48	1	0s			*version::numify = \&version::vxs::numify;
49	1	0s			*version::normal = \&version::vxs::normal;
50	1	0s			if ($] >= 5.009000) {
51	2	0s	2	0s	# spent 0s within version::BEGIN@51 which was called: # once (0s+0s) by ExtUtils::MakeMaker::version::BEGIN@2 at line 51 no strict 'refs'; # spent 0s making 1 call to strict::unimport # spent 0s making 1 call to version::BEGIN@51
52	1	0s			*version::stringify = \&version::vxs::stringify;
53	1	0s			*{'version::(""'} = \&version::vxs::stringify;
54	1	0s			*{'version::(<=>'} = \&version::vxs::VCMP;
55	1	0s			*version::parse = \&version::vxs::parse;
56					}
57					}
58					}
59
60					# avoid using Exporter
61	1	0s			require version::regex;
62	1	0s			*version::is_lax = \&version::regex::is_lax;
63	1	0s			*version::is_strict = \&version::regex::is_strict;
64	1	0s			*LAX = \$version::regex::LAX;
65	1	0s			*STRICT = \$version::regex::STRICT;
66
67					# spent 0s within version::import which was called 4 times, avg 0s/call: # 3 times (0s+0s) by ExtUtils::MM_Unix::get_version at line 2799 of ExtUtils/MM_Unix.pm, avg 0s/call # once (0s+0s) by ExtUtils::MakeMaker::version::BEGIN@2 at line 2 of (eval 5)[ExtUtils/MakeMaker/version.pm:23] sub import {
68	2	0s	2	0s	# spent 0s within version::BEGIN@68 which was called: # once (0s+0s) by ExtUtils::MakeMaker::version::BEGIN@2 at line 68 no strict 'refs'; # spent 0s making 1 call to strict::unimport # spent 0s making 1 call to version::BEGIN@68
69	4	0s			my ($class) = shift;
70
71					# Set up any derived class
72	4	0s			unless ($class eq $CLASS) {
73					local $^W;
74					*{$class.'::declare'} = \&{$CLASS.'::declare'};
75					*{$class.'::qv'} = \&{$CLASS.'::qv'};
76					}
77
78	4	0s			my %args;
79	4	0s			if (@_) { # any remaining terms are arguments
80					map { $args{$_} = 1 } @_
81					}
82					else { # no parameters at all on use line
83	4	0s			%args =
84					(
85					qv => 1,
86					'UNIVERSAL::VERSION' => 1,
87					);
88					}
89
90	4	0s			my $callpkg = caller();
91
92	4	0s			if (exists($args{declare})) {
93					*{$callpkg.'::declare'} =
94					sub {return $class->declare(shift) }
95					unless defined(&{$callpkg.'::declare'});
96					}
97
98	4	0s			if (exists($args{qv})) {
99					*{$callpkg.'::qv'} =
100					sub {return $class->qv(shift) }
101					unless defined(&{$callpkg.'::qv'});
102					}
103
104	4	0s			if (exists($args{'UNIVERSAL::VERSION'})) {
105	4	0s			local $^W;
106					*UNIVERSAL::VERSION
107	4	0s			= \&{$CLASS.'::_VERSION'};
108					}
109
110	4	0s			if (exists($args{'VERSION'})) {
111					*{$callpkg.'::VERSION'} = \&{$CLASS.'::_VERSION'};
112					}
113
114	4	0s			if (exists($args{'is_strict'})) {
115					*{$callpkg.'::is_strict'} = \&{$CLASS.'::is_strict'}
116					unless defined(&{$callpkg.'::is_strict'});
117					}
118
119	4	0s			if (exists($args{'is_lax'})) {
120					*{$callpkg.'::is_lax'} = \&{$CLASS.'::is_lax'}
121					unless defined(&{$callpkg.'::is_lax'});
122					}
123					}
124
125
126	1	0s			1;

					# spent 0s within version::(bool which was called: # once (0s+0s) by ExtUtils::MakeMaker::Config::BEGIN@7 at line 59 of Config.pm sub version::(bool; # xsub
					# spent 0s within version::(cmp which was called: # once (0s+0s) by ExtUtils::MakeMaker::Config::BEGIN@7 at line 62 of Config.pm sub version::(cmp; # xsub
					# spent 0s within version::is_qv which was called 9 times, avg 0s/call: # 9 times (0s+0s) by CPAN::Meta::Requirements::__ANON__[C:/tmp64ng/perl/lib/CPAN/Meta/Requirements.pm:51] at line 51 of CPAN/Meta/Requirements.pm, avg 0s/call sub version::is_qv; # xsub