Profile of List/Util.pm

Filename	/usr/libdata/perl5/amd64-openbsd/List/Util.pm
Statements	Executed 13 statements in 908µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	26µs	31µs	List::Util::::BEGIN@9 List::Util::BEGIN@9
1	1	1	15µs	43µs	List::Util::::BEGIN@30 List::Util::BEGIN@30
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	175µs	2	37µs	# spent 31µs (26+6) within List::Util::BEGIN@9 which was called: # once (26µs+6µs) by IO::Compress::Base::Common::BEGIN@8 at line 9 use strict; # spent 31µs making 1 call to List::Util::BEGIN@9 # spent 6µs making 1 call to strict::import
10	1	1µs			require Exporter;
11
12	1	8µs			our @ISA = qw(Exporter);
13	1	5µs			our @EXPORT_OK = qw(
14					all any first min max minstr maxstr none notall product reduce sum sum0 shuffle
15					pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
16					);
17	1	1µs			our $VERSION = "1.42_02";
18	1	800ns			our $XS_VERSION = $VERSION;
19	1	20µs			$VERSION = eval $VERSION; # spent 5µs executing statements in string eval
20
21	1	1µs			require XSLoader;
22	1	474µs	1	462µs	XSLoader::load('List::Util', $XS_VERSION); # spent 462µs making 1 call to XSLoader::load
23
24					sub import
25					{
26					my $pkg = caller;
27
28					# (RT88848) Touch the caller's $a and $b, to avoid the warning of
29					# Name "main::a" used only once: possible typo" warning
30	2	210µs	2	72µs	# spent 43µs (15+29) within List::Util::BEGIN@30 which was called: # once (15µs+29µs) by IO::Compress::Base::Common::BEGIN@8 at line 30 no strict 'refs'; # spent 43µs making 1 call to List::Util::BEGIN@30 # spent 29µs making 1 call to strict::unimport
31					${"${pkg}::a"} = ${"${pkg}::a"};
32					${"${pkg}::b"} = ${"${pkg}::b"};
33
34					goto &Exporter::import;
35					}
36
37					# For objects returned by pairs()
38					sub List::Util::_Pair::key { shift->[0] }
39					sub List::Util::_Pair::value { shift->[1] }
40
41	1	13µs			1;
42
43					__END__