Profile of version.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
18	16	13	396µs	396µs	version::::_VERSIONversion::_VERSION (xsub)
1	1	1	108µs	108µs	version::::importversion::import
1	1	1	51µs	51µs	version::::BEGIN@4version::BEGIN@4
1	1	1	29µs	85µs	version::::BEGIN@24version::BEGIN@24
1	1	1	28µs	447µs	version::::BEGIN@11version::BEGIN@11
1	1	1	22µs	678µs	version::::BEGIN@6version::BEGIN@6
1	1	1	18µs	39µs	version::::BEGIN@5version::BEGIN@5
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	105µs	1	51µs	# spent 51µs within version::BEGIN@4 which was called: # once (51µs+0s) by Net::Patricia::BEGIN@31 at line 4 use 5.006002; # spent 51µs making 1 call to version::BEGIN@4
5	2	64µs	2	60µs	# spent 39µs (18+21) within version::BEGIN@5 which was called: # once (18µs+21µs) by Net::Patricia::BEGIN@31 at line 5 use strict; # spent 39µs making 1 call to version::BEGIN@5 # spent 21µs making 1 call to strict::import
6	2	107µs	2	1.33ms	# spent 678µs (22+656) within version::BEGIN@6 which was called: # once (22µs+656µs) by Net::Patricia::BEGIN@31 at line 6 use warnings::register; # spent 678µs making 1 call to version::BEGIN@6 # spent 656µs making 1 call to warnings::register::import
7	1	9µs			if ($] >= 5.015) {
8	1	12µs	1	22µs	warnings::register_categories(qw/version/); # spent 22µs making 1 call to warnings::register_categories
9					}
10
11	2	196µs	2	866µs	# spent 447µs (28+419) within version::BEGIN@11 which was called: # once (28µs+419µs) by Net::Patricia::BEGIN@31 at line 11 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX declare qv); # spent 447µs making 1 call to version::BEGIN@11 # spent 419µ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	290µs			require version::regex;
18	1	12µ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 108µs within version::import which was called: # once (108µs+0s) by Net::Patricia::BEGIN@31 at line 31 of Net/Patricia.pm sub import {
24	2	725µs	2	142µs	# spent 85µs (29+57) within version::BEGIN@24 which was called: # once (29µs+57µs) by Net::Patricia::BEGIN@31 at line 24 no strict 'refs'; # spent 85µs making 1 call to version::BEGIN@24 # spent 57µs making 1 call to strict::unimport
25	1	3µ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	7µ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	4µ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	2µs			*{$callpkg.'::qv'} =
56					sub {return $class->qv(shift) }
57	2	29µs			unless defined(&{$callpkg.'::qv'});
58					}
59
60	1	3µs			if (exists($args{'UNIVERSAL::VERSION'})) {
61	1	13µs			local $^W;
62					*UNIVERSAL::VERSION
63	2	17µ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	25µ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 396µs within version::_VERSION which was called 18 times, avg 22µ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 (38µs+0s) by Mail::SpamAssassin::DnsResolver::load_resolver at line 174 of Mail/SpamAssassin/DnsResolver.pm, avg 19µs/call # once (37µs+0s) by Mail::SpamAssassin::Plugin::TxRep::BEGIN@203 at line 203 of Mail/SpamAssassin/Plugin/TxRep.pm # once (30µs+0s) by Mail::SpamAssassin::Plugin::AskDNS::new at line 214 of Mail/SpamAssassin/Plugin/AskDNS.pm # once (29µs+0s) by IO::Socket::SSL::BEGIN@308 at line 315 of IO/Socket/SSL.pm # once (28µs+0s) by Mail::SpamAssassin::Plugin::SpamCop::BEGIN@53 at line 31 of Net/SMTP.pm # once (25µs+0s) by Mail::SpamAssassin::BEGIN@85 at line 85 of Mail/SpamAssassin.pm # once (23µs+0s) by IO::Socket::IP::BEGIN@19 at line 30 of IO/Socket/IP.pm # once (23µs+0s) by IO::Socket::SSL::BEGIN@19 at line 19 of IO/Socket/SSL.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 (18µs+0s) by Mail::SpamAssassin::HTML::BEGIN@30 at line 30 of Mail/SpamAssassin/HTML.pm # once (16µs+0s) by Mail::SpamAssassin::NetSet::BEGIN@35 at line 38 of Mail/SpamAssassin/NetSet.pm # once (13µs+0s) by IO::Socket::SSL::BEGIN@308 at line 341 of IO/Socket/SSL.pm # once (13µs+0s) by Mail::SpamAssassin::Plugin::SpamCop::BEGIN@53 at line 42 of Net/SMTP.pm sub version::_VERSION; # xsub