Profile of lib.pm

Filename	/usr/local/lib/perl5/5.24/mach/lib.pm
Statements	Executed 62 statements in 1.72ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
2	2	2	395µs	581µs	lib::::importlib::import
2	1	1	69µs	69µs	lib::::_get_dirslib::_get_dirs
7	4	1	60µs	60µs	lib::::CORE:ftdirlib::CORE:ftdir (opcode)
1	1	1	52µs	94µs	lib::::BEGIN@6lib::BEGIN@6
2	1	1	33µs	33µs	lib::::CORE:ftislib::CORE:ftis (opcode)
2	1	1	24µs	24µs	lib::::CORE:matchlib::CORE:match (opcode)
1	1	1	22µs	32µs	lib::::BEGIN@8lib::BEGIN@8
0	0	0	0s	0s	lib::::unimportlib::unimport

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package lib;
2
3					# THIS FILE IS AUTOMATICALLY GENERATED FROM lib_pm.PL.
4					# ANY CHANGES TO THIS FILE WILL BE OVERWRITTEN BY THE NEXT PERL BUILD.
5
6	2	89µs	2	137µs	# spent 94µs (52+42) within lib::BEGIN@6 which was called: # once (52µs+42µs) by main::BEGIN@39 at line 6 use Config; # spent 94µs making 1 call to lib::BEGIN@6 # spent 42µs making 1 call to Config::import
7
8	2	969µs	2	43µs	# spent 32µs (22+11) within lib::BEGIN@8 which was called: # once (22µs+11µs) by main::BEGIN@39 at line 8 use strict; # spent 32µs making 1 call to lib::BEGIN@8 # spent 11µs making 1 call to strict::import
9
10	1	18µs	1	12µs	my $archname = $Config{archname}; # spent 12µs making 1 call to Config::FETCH
11	1	10µs	1	10µs	my $version = $Config{version}; # spent 10µs making 1 call to Config::FETCH
12	1	19µs	1	10µs	my @inc_version_list = reverse split / /, $Config{inc_version_list}; # spent 10µs making 1 call to Config::FETCH
13
14
15	1	3µs			our @ORIG_INC = @INC; # take a handy copy of 'original' value
16	1	2µs			our $VERSION = '0.63';
17
18					# spent 581µs (395+186) within lib::import which was called 2 times, avg 290µs/call: # once (253µs+133µs) by main::BEGIN@39 at line 39 of /usr/local/bin/sa-learn # once (142µs+54µs) by Razor2::Client::Agent::BEGIN@13 at line 13 of Razor2/Client/Agent.pm sub import {
19	2	4µs			shift;
20
21	2	7µs			my %names;
22	2	9µs			foreach (reverse @_) {
23	2	4µs			my $path = $_; # we'll be modifying it, so break the alias
24	2	6µs			if ($path eq '') {
25					require Carp;
26					Carp::carp("Empty compile time value given to use lib");
27					}
28
29	2	214µs	5	62µs	if ($path !~ /\.par$/i && -e $path && ! -d _) { # spent 33µs making 2 calls to lib::CORE:ftis, avg 17µs/call # spent 24µs making 2 calls to lib::CORE:match, avg 12µs/call # spent 5µs making 1 call to lib::CORE:ftdir
30					require Carp;
31					Carp::carp("Parameter to use lib must be directory, not file");
32					}
33	2	9µs			unshift(@INC, $path);
34					# Add any previous version directories we found at configure time
35	2	9µs			foreach my $incver (@inc_version_list)
36					{
37					my $dir = "$path/$incver";
38					unshift(@INC, $dir) if -d $dir;
39					}
40					# Put a corresponding archlib directory in front of $path if it
41					# looks like $path has an archlib directory below it.
42	2	18µs	2	69µs	my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir) # spent 69µs making 2 calls to lib::_get_dirs, avg 35µs/call
43					= _get_dirs($path);
44	2	43µs	2	29µs	unshift(@INC, $arch_dir) if -d $arch_auto_dir; # spent 29µs making 2 calls to lib::CORE:ftdir, avg 14µs/call
45	2	30µs	2	14µs	unshift(@INC, $version_dir) if -d $version_dir; # spent 14µs making 2 calls to lib::CORE:ftdir, avg 7µs/call
46	2	37µs	2	13µs	unshift(@INC, $version_arch_dir) if -d $version_arch_dir; # spent 13µs making 2 calls to lib::CORE:ftdir, avg 6µs/call
47					}
48
49					# remove trailing duplicates
50	12	100µs			@INC = grep { ++$names{$_} == 1 } @INC;
51	2	21µs			return;
52					}
53
54
55					sub unimport {
56					shift;
57
58					my %names;
59					foreach my $path (@_) {
60					my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir)
61					= _get_dirs($path);
62					++$names{$path};
63					++$names{$arch_dir} if -d $arch_auto_dir;
64					++$names{$version_dir} if -d $version_dir;
65					++$names{$version_arch_dir} if -d $version_arch_dir;
66					}
67
68					# Remove ALL instances of each named directory.
69					@INC = grep { !exists $names{$_} } @INC;
70					return;
71					}
72
73					# spent 69µs within lib::_get_dirs which was called 2 times, avg 35µs/call: # 2 times (69µs+0s) by lib::import at line 42, avg 35µs/call sub _get_dirs {
74	2	5µs			my($dir) = @_;
75	2	4µs			my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);
76
77	2	18µs			$arch_auto_dir = "$dir/$archname/auto";
78	2	6µs			$arch_dir = "$dir/$archname";
79	2	6µs			$version_dir = "$dir/$version";
80	2	7µs			$version_arch_dir = "$dir/$version/$archname";
81
82	2	32µs			return($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);
83					}
84
85	1	20µs			1;
86					__END__

					# spent 60µs within lib::CORE:ftdir which was called 7 times, avg 9µs/call: # 2 times (29µs+0s) by lib::import at line 44, avg 14µs/call # 2 times (14µs+0s) by lib::import at line 45, avg 7µs/call # 2 times (13µs+0s) by lib::import at line 46, avg 6µs/call # once (5µs+0s) by lib::import at line 29 sub lib::CORE:ftdir; # opcode
					# spent 33µs within lib::CORE:ftis which was called 2 times, avg 17µs/call: # 2 times (33µs+0s) by lib::import at line 29, avg 17µs/call sub lib::CORE:ftis; # opcode
					# spent 24µs within lib::CORE:match which was called 2 times, avg 12µs/call: # 2 times (24µs+0s) by lib::import at line 29, avg 12µs/call sub lib::CORE:match; # opcode