Profile of lib.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
2	2	2	350µs	505µs	lib::::importlib::import
7	4	1	53µs	53µs	lib::::CORE:ftdirlib::CORE:ftdir (opcode)
2	1	1	50µs	50µs	lib::::_get_dirslib::_get_dirs
1	1	1	43µs	87µs	lib::::BEGIN@6lib::BEGIN@6
2	1	1	41µs	41µs	lib::::CORE:ftislib::CORE:ftis (opcode)
1	1	1	21µs	32µs	lib::::BEGIN@8lib::BEGIN@8
2	1	1	10µs	10µs	lib::::CORE:matchlib::CORE:match (opcode)
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	63µs	2	130µs	# spent 87µs (43+43) within lib::BEGIN@6 which was called: # once (43µs+43µs) by main::BEGIN@39 at line 6 use Config; # spent 87µs making 1 call to lib::BEGIN@6 # spent 43µs making 1 call to Config::import
7
8	2	884µs	2	42µs	# spent 32µs (21+11) within lib::BEGIN@8 which was called: # once (21µ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	9µs	1	7µs	my $version = $Config{version}; # spent 7µs making 1 call to Config::FETCH
12	1	14µs	1	8µs	my @inc_version_list = reverse split / /, $Config{inc_version_list}; # spent 8µ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 505µs (350+155) within lib::import which was called 2 times, avg 252µs/call: # once (230µs+91µs) by main::BEGIN@39 at line 39 of /usr/local/bin/sa-learn # once (120µs+64µ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	4µs			my %names;
22	2	10µs			foreach (reverse @_) {
23	2	4µs			my $path = $_; # we'll be modifying it, so break the alias
24	2	5µs			if ($path eq '') {
25					require Carp;
26					Carp::carp("Empty compile time value given to use lib");
27					}
28
29	2	208µs	5	58µs	if ($path !~ /\.par$/i && -e $path && ! -d _) { # spent 41µs making 2 calls to lib::CORE:ftis, avg 21µs/call # spent 10µs making 2 calls to lib::CORE:match, avg 5µs/call # spent 6µ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	19µs	2	50µs	my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir) # spent 50µs making 2 calls to lib::_get_dirs, avg 25µs/call
43					= _get_dirs($path);
44	2	34µs	2	19µs	unshift(@INC, $arch_dir) if -d $arch_auto_dir; # spent 19µs making 2 calls to lib::CORE:ftdir, avg 10µs/call
45	2	31µ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	33µs	2	14µs	unshift(@INC, $version_arch_dir) if -d $version_arch_dir; # spent 14µs making 2 calls to lib::CORE:ftdir, avg 7µs/call
47					}
48
49					# remove trailing duplicates
50	12	68µ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 50µs within lib::_get_dirs which was called 2 times, avg 25µs/call: # 2 times (50µs+0s) by lib::import at line 42, avg 25µ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	8µ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	19µs			return($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);
83					}
84
85	1	14µs			1;
86					__END__

					# spent 53µs within lib::CORE:ftdir which was called 7 times, avg 8µs/call: # 2 times (19µs+0s) by lib::import at line 44, avg 10µs/call # 2 times (14µs+0s) by lib::import at line 45, avg 7µs/call # 2 times (14µs+0s) by lib::import at line 46, avg 7µs/call # once (6µs+0s) by lib::import at line 29 sub lib::CORE:ftdir; # opcode
					# spent 41µs within lib::CORE:ftis which was called 2 times, avg 21µs/call: # 2 times (41µs+0s) by lib::import at line 29, avg 21µs/call sub lib::CORE:ftis; # opcode
					# spent 10µs within lib::CORE:match which was called 2 times, avg 5µs/call: # 2 times (10µs+0s) by lib::import at line 29, avg 5µs/call sub lib::CORE:match; # opcode