Profile of List/Util.pm

Filename	/usr/lib/x86_64-linux-gnu/perl/5.28/List/Util.pm
Statements	Executed 15 statements in 428µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	10µs	12µs	List::Util::::BEGIN@9 List::Util::BEGIN@9
1	1	1	7µs	18µs	List::Util::::BEGIN@31 List::Util::BEGIN@31
1	1	1	5µs	17µs	List::Util::::BEGIN@10 List::Util::BEGIN@10
0	0	0	0s	0s	List::Util::_Pair::::keyList::Util::_Pair::key
0	0	0	0s	0s	List::Util::_Pair::::valueList::Util::_Pair::value
0	0	0	0s	0s	List::Util::::import List::Util::import

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					# Copyright (c) 1997-2009 Graham Barr <gbarr@pobox.com>. All rights reserved.
2					# This program is free software; you can redistribute it and/or
3					# modify it under the same terms as Perl itself.
4					#
5					# Maintained since 2013 by Paul Evans <leonerd@leonerd.org.uk>
6
7					package List::Util;
8
9	2	19µs	2	15µs	# spent 12µs (10+2) within List::Util::BEGIN@9 which was called: # once (10µs+2µs) by YAML::XS::BEGIN@21 at line 9 use strict; # spent 12µs making 1 call to List::Util::BEGIN@9 # spent 2µs making 1 call to strict::import
10	2	94µs	2	29µs	# spent 17µs (5+12) within List::Util::BEGIN@10 which was called: # once (5µs+12µs) by YAML::XS::BEGIN@21 at line 10 use warnings; # spent 17µs making 1 call to List::Util::BEGIN@10 # spent 12µs making 1 call to warnings::import
11	1	400ns			require Exporter;
12
13	1	4µs			our @ISA = qw(Exporter);
14	1	2µs			our @EXPORT_OK = qw(
15					all any first min max minstr maxstr none notall product reduce sum sum0 shuffle uniq uniqnum uniqstr
16					head tail pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
17					);
18	1	100ns			our $VERSION = "1.50";
19	1	200ns			our $XS_VERSION = $VERSION;
20	1	13µs			$VERSION = eval $VERSION; # spent 2µs executing statements in string eval
21
22	1	400ns			require XSLoader;
23	1	179µs	1	172µs	XSLoader::load('List::Util', $XS_VERSION); # spent 172µs making 1 call to XSLoader::load
24
25					sub import
26					{
27					my $pkg = caller;
28
29					# (RT88848) Touch the caller's $a and $b, to avoid the warning of
30					# Name "main::a" used only once: possible typo" warning
31	2	107µs	2	30µs	# spent 18µs (7+12) within List::Util::BEGIN@31 which was called: # once (7µs+12µs) by YAML::XS::BEGIN@21 at line 31 no strict 'refs'; # spent 18µs making 1 call to List::Util::BEGIN@31 # spent 12µs making 1 call to strict::unimport
32					${"${pkg}::a"} = ${"${pkg}::a"};
33					${"${pkg}::b"} = ${"${pkg}::b"};
34
35					goto &Exporter::import;
36					}
37
38					# For objects returned by pairs()
39					sub List::Util::_Pair::key { shift->[0] }
40					sub List::Util::_Pair::value { shift->[1] }
41
42	1	8µs			1;