Profile of List/Util.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	11µs	13µs	List::Util::::BEGIN@9 List::Util::BEGIN@9
1	1	1	7µs	20µs	List::Util::::BEGIN@31 List::Util::BEGIN@31
1	1	1	7µs	19µ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	96µs	2	15µs	# spent 13µs (11+2) within List::Util::BEGIN@9 which was called: # once (11µs+2µs) by YAML::XS::BEGIN@21 at line 9 use strict; # spent 13µs making 1 call to List::Util::BEGIN@9 # spent 2µs making 1 call to strict::import
10	2	135µs	2	32µs	# spent 19µs (7+12) within List::Util::BEGIN@10 which was called: # once (7µs+12µs) by YAML::XS::BEGIN@21 at line 10 use warnings; # spent 19µ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	5µ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	200ns			our $VERSION = "1.50";
19	1	100ns			our $XS_VERSION = $VERSION;
20	1	16µs			$VERSION = eval $VERSION; # spent 2µs executing statements in string eval
21
22	1	200ns			require XSLoader;
23	1	174µs	1	168µs	XSLoader::load('List::Util', $XS_VERSION); # spent 168µ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	143µs	2	32µs	# spent 20µ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 20µ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;