Filename	/usr/lib/perl5/5.14/i686-cygwin-threads-64int/List/Util.pm
Statements	Executed 18 statements in 1.62ms

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	210µs	224µs	List::Util::::BEGIN@11List::Util::BEGIN@11
1	1	1	15µs	175µs	List::Util::::BEGIN@12List::Util::BEGIN@12

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					# List::Util.pm
2					#
3					# Copyright (c) 1997-2009 Graham Barr <gbarr@pobox.com>. All rights reserved.
4					# This program is free software; you can redistribute it and/or
5					# modify it under the same terms as Perl itself.
6					#
7					# This module is normally only loaded if the XS module is not available
8
9					package List::Util;
10
11	2	82µs	2	238µs	# spent 224µs (210+14) within List::Util::BEGIN@11 which was called: # once (210µs+14µs) by installer::BEGIN@34 at line 11 use strict; # spent 224µs making 1 call to List::Util::BEGIN@11 # spent 14µs making 1 call to strict::import
12	2	368µs	2	336µs	# spent 175µs (15+160) within List::Util::BEGIN@12 which was called: # once (15µs+160µs) by installer::BEGIN@34 at line 12 use vars qw(@ISA @EXPORT_OK $VERSION $XS_VERSION $TESTING_PERL_ONLY); # spent 175µs making 1 call to List::Util::BEGIN@12 # spent 160µs making 1 call to vars::import
13	1	2µs			require Exporter;
14
15	1	13µs			@ISA = qw(Exporter);
16	1	5µs			@EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
17	1	1µs			$VERSION = "1.23";
18	1	500ns			$XS_VERSION = $VERSION;
19	1	31µs			$VERSION = eval $VERSION; # spent 7µs executing statements in string eval
20
21	3	5µs			eval {
22					# PERL_DL_NONLAZY must be false, or any errors in loading will just
23					# cause the perl code to be tested
24					local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY};
25					eval {
26					require XSLoader;
27			1	1.03ms	XSLoader::load('List::Util', $XS_VERSION); # spent 1.03ms making 1 call to XSLoader::load
28					1;
29	3	1.05ms			} or do {
30					require DynaLoader;
31					local @ISA = qw(DynaLoader);
32					bootstrap List::Util $XS_VERSION;
33					};
34					} unless $TESTING_PERL_ONLY;
35
36
37	1	1µs			if (!defined &sum) {
38					require List::Util::PP;
39					List::Util::PP->import;
40					}
41
42	1	62µs			1;
43
44					__END__