Filename	/usr/lib/perl/5.10/List/Util.pm
Statements	Executed 20 statements in 649µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	19µs	23µs	List::Util::::BEGIN@11List::Util::BEGIN@11
1	1	1	11µs	118µ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	3	38µs	2	28µs	# spent 23µs (19+4) within List::Util::BEGIN@11 which was called: # once (19µs+4µs) by Compress::Zlib::BEGIN@9 at line 11 use strict; # spent 23µs making 1 call to List::Util::BEGIN@11 # spent 4µs making 1 call to strict::import
12	3	200µs	2	224µs	# spent 118µs (11+106) within List::Util::BEGIN@12 which was called: # once (11µs+106µs) by Compress::Zlib::BEGIN@9 at line 12 use vars qw(@ISA @EXPORT_OK $VERSION $XS_VERSION $TESTING_PERL_ONLY); # spent 118µs making 1 call to List::Util::BEGIN@12 # spent 106µs making 1 call to vars::import
13	1	1µs			require Exporter;
14
15	1	12µs			@ISA = qw(Exporter);
16	1	2µs			@EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
17	1	400ns			$VERSION = "1.21";
18	1	300ns			$XS_VERSION = $VERSION;
19	1	23µs			$VERSION = eval $VERSION; # spent 3µs executing statements in string eval
20
21	1	1µ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	1	1µs			local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY};
25					eval {
26	1	700ns			require XSLoader;
27	1	354µs	1	345µs	XSLoader::load('List::Util', $XS_VERSION); # spent 345µs making 1 call to XSLoader::load
28	1	900ns			1;
29	1	700ns			} or do {
30					require DynaLoader;
31					local @ISA = qw(DynaLoader);
32					bootstrap List::Util $XS_VERSION;
33					};
34					} unless $TESTING_PERL_ONLY;
35
36	1	900ns			if (!defined &sum) {
37					require List::Util::PP;
38					List::Util::PP->import;
39					}
40
41	1	13µs			1;
42
43					__END__