Profile of version.pm

Filename	/usr/local/lib/perl5/5.24/version.pm
Statements	Executed 38 statements in 1.50ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
18	16	13	406µs	406µs	version::::_VERSIONversion::_VERSION (xsub)
1	1	1	82µs	82µs	version::::importversion::import
1	1	1	42µs	42µs	version::::BEGIN@4version::BEGIN@4
1	1	1	22µs	70µs	version::::BEGIN@24version::BEGIN@24
1	1	1	22µs	512µs	version::::BEGIN@6version::BEGIN@6
1	1	1	20µs	27µs	version::::BEGIN@5version::BEGIN@5
1	1	1	18µs	306µs	version::::BEGIN@11version::BEGIN@11
1	1	1	11µs	11µs	version::::(cmpversion::(cmp (xsub)
1	1	1	11µs	11µs	version::::(boolversion::(bool (xsub)
0	0	0	0s	0s	version::::__ANON__[:50]version::__ANON__[:50]
0	0	0	0s	0s	version::::__ANON__[:56]version::__ANON__[:56]

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	95µs	1	42µs	# spent 42µs within version::BEGIN@4 which was called: # once (42µs+0s) by Net::Patricia::BEGIN@31 at line 4 use 5.006002; # spent 42µs making 1 call to version::BEGIN@4
5	2	62µs	2	34µs	# spent 27µs (20+7) within version::BEGIN@5 which was called: # once (20µs+7µs) by Net::Patricia::BEGIN@31 at line 5 use strict; # spent 27µs making 1 call to version::BEGIN@5 # spent 7µs making 1 call to strict::import
6	2	101µs	2	1.00ms	# spent 512µs (22+490) within version::BEGIN@6 which was called: # once (22µs+490µs) by Net::Patricia::BEGIN@31 at line 6 use warnings::register; # spent 512µs making 1 call to version::BEGIN@6 # spent 490µs making 1 call to warnings::register::import
7	1	5µs			if ($] >= 5.015) {
8	1	7µs	1	14µs	warnings::register_categories(qw/version/); # spent 14µs making 1 call to warnings::register_categories
9					}
10
11	2	174µs	2	593µs	# spent 306µs (18+287) within version::BEGIN@11 which was called: # once (18µs+287µs) by Net::Patricia::BEGIN@31 at line 11 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX declare qv); # spent 306µs making 1 call to version::BEGIN@11 # spent 287µs making 1 call to vars::import
12
13	1	2µs			$VERSION = 0.9916;
14	1	2µs			$CLASS = 'version';
15
16					# avoid using Exporter
17	1	282µs			require version::regex;
18	1	4µs			*version::is_lax = \&version::regex::is_lax;
19	1	2µs			*version::is_strict = \&version::regex::is_strict;
20	1	2µs			*LAX = \$version::regex::LAX;
21	1	2µs			*STRICT = \$version::regex::STRICT;
22
23					# spent 82µs within version::import which was called: # once (82µs+0s) by Net::Patricia::BEGIN@31 at line 31 of Net/Patricia.pm sub import {
24	2	662µs	2	119µs	# spent 70µs (22+48) within version::BEGIN@24 which was called: # once (22µs+48µs) by Net::Patricia::BEGIN@31 at line 24 no strict 'refs'; # spent 70µs making 1 call to version::BEGIN@24 # spent 48µs making 1 call to strict::unimport
25	1	2µs			my ($class) = shift;
26
27					# Set up any derived class
28	1	2µs			unless ($class eq $CLASS) {
29					local $^W;
30					*{$class.'::declare'} = \&{$CLASS.'::declare'};
31					*{$class.'::qv'} = \&{$CLASS.'::qv'};
32					}
33
34	1	6µs			my %args;
35	1	4µs			if (@_) { # any remaining terms are arguments
36					map { $args{$_} = 1 } @_
37					}
38					else { # no parameters at all on use line
39	1	5µs			%args =
40					(
41					qv => 1,
42					'UNIVERSAL::VERSION' => 1,
43					);
44					}
45
46	1	2µs			my $callpkg = caller();
47
48	1	2µs			if (exists($args{declare})) {
49					*{$callpkg.'::declare'} =
50					sub {return $class->declare(shift) }
51					unless defined(&{$callpkg.'::declare'});
52					}
53
54	1	3µs			if (exists($args{qv})) {
55	1	3µs			*{$callpkg.'::qv'} =
56					sub {return $class->qv(shift) }
57	2	24µs			unless defined(&{$callpkg.'::qv'});
58					}
59
60	1	4µs			if (exists($args{'UNIVERSAL::VERSION'})) {
61	1	6µs			local $^W;
62					*UNIVERSAL::VERSION
63	2	10µs			= \&{$CLASS.'::_VERSION'};
64					}
65
66	1	2µs			if (exists($args{'VERSION'})) {
67					*{$callpkg.'::VERSION'} = \&{$CLASS.'::_VERSION'};
68					}
69
70	1	1µs			if (exists($args{'is_strict'})) {
71					*{$callpkg.'::is_strict'} = \&{$CLASS.'::is_strict'}
72					unless defined(&{$callpkg.'::is_strict'});
73					}
74
75	1	10µs			if (exists($args{'is_lax'})) {
76					*{$callpkg.'::is_lax'} = \&{$CLASS.'::is_lax'}
77					unless defined(&{$callpkg.'::is_lax'});
78					}
79					}
80
81
82	1	13µs			1;

					# spent 11µs within version::(bool which was called: # once (11µs+0s) by Errno::BEGIN@10 at line 59 of Config.pm sub version::(bool; # xsub
					# spent 11µs within version::(cmp which was called: # once (11µs+0s) by Errno::BEGIN@10 at line 62 of Config.pm sub version::(cmp; # xsub
					# spent 406µs within version::_VERSION which was called 18 times, avg 23µs/call: # 2 times (42µs+0s) by Net::DNS::Resolver::Base::BEGIN@1 or Net::DNS::Resolver::Base::BEGIN@1.1 at line 1 of (eval 16)[Net/DNS/Resolver/Base.pm:29], avg 21µs/call # 2 times (40µs+0s) by Mail::SpamAssassin::DnsResolver::load_resolver at line 174 of Mail/SpamAssassin/DnsResolver.pm, avg 20µs/call # once (31µs+0s) by Mail::SpamAssassin::Plugin::AskDNS::new at line 214 of Mail/SpamAssassin/Plugin/AskDNS.pm # once (31µs+0s) by IO::Socket::SSL::BEGIN@19 at line 19 of IO/Socket/SSL.pm # once (31µs+0s) by IO::Socket::SSL::BEGIN@308 at line 315 of IO/Socket/SSL.pm # once (30µs+0s) by Mail::SpamAssassin::Plugin::TxRep::BEGIN@207 at line 207 of Mail/SpamAssassin/Plugin/TxRep.pm # once (27µs+0s) by Mail::SpamAssassin::Plugin::SpamCop::BEGIN@53 at line 31 of Net/SMTP.pm # once (25µs+0s) by Mail::SpamAssassin::HTML::BEGIN@30 at line 30 of Mail/SpamAssassin/HTML.pm # once (24µs+0s) by IO::Socket::IP::BEGIN@19 at line 30 of IO/Socket/IP.pm # once (23µs+0s) by Mail::SpamAssassin::BEGIN@85 at line 85 of Mail/SpamAssassin.pm # once (23µs+0s) by Net::DNS::Resolver::Base::BEGIN@46 at line 23 of Scalar/Util.pm # once (19µs+0s) by IO::Socket::BEGIN@13 at line 13 of IO/Socket.pm # once (19µs+0s) by URI::Escape::BEGIN@140 at line 140 of URI/Escape.pm # once (16µs+0s) by Mail::SpamAssassin::NetSet::BEGIN@35 at line 38 of Mail/SpamAssassin/NetSet.pm # once (14µs+0s) by IO::Socket::SSL::BEGIN@308 at line 341 of IO/Socket/SSL.pm # once (12µs+0s) by Mail::SpamAssassin::Plugin::SpamCop::BEGIN@53 at line 42 of Net/SMTP.pm sub version::_VERSION; # xsub