Filename	C:/tmp64ng/perl/lib/List/Util.pm
Statements	Executed 13 statements in 0s

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	0s	0s	List::Util::::BEGIN@30 List::Util::BEGIN@30
1	1	1	0s	0s	List::Util::::BEGIN@9 List::Util::BEGIN@9
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	0s	2	0s	# spent 0s within List::Util::BEGIN@9 which was called: # once (0s+0s) by Win32::API::BEGIN@36 at line 9 use strict; # spent 0s making 1 call to List::Util::BEGIN@9 # spent 0s making 1 call to strict::import
10	1	0s			require Exporter;
11
12	1	0s			our @ISA = qw(Exporter);
13	1	0s			our @EXPORT_OK = qw(
14					all any first min max minstr maxstr none notall product reduce sum sum0 shuffle
15					pairmap pairgrep pairfirst pairs pairkeys pairvalues
16					);
17	1	0s			our $VERSION = "1.41";
18	1	0s			our $XS_VERSION = $VERSION;
19	1	0s			$VERSION = eval $VERSION; # spent 0s executing statements in string eval
20
21	1	0s			require XSLoader;
22	1	0s	1	0s	XSLoader::load('List::Util', $XS_VERSION); # spent 0s 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	0s	2	0s	# spent 0s within List::Util::BEGIN@30 which was called: # once (0s+0s) by Win32::API::BEGIN@36 at line 30 no strict 'refs'; # spent 0s making 1 call to List::Util::BEGIN@30 # spent 0s 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	0s			1;
42
43					__END__