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

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	17µs	22µs	List::Util::::BEGIN@11List::Util::BEGIN@11
1	1	1	8µs	80µ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	37µs	2	27µs	# spent 22µs (17+5) within List::Util::BEGIN@11 which was called: # once (17µs+5µs) by C4::Context::BEGIN@101 at line 11 use strict; # spent 22µs making 1 call to List::Util::BEGIN@11 # spent 5µs making 1 call to strict::import
12	3	144µs	2	152µs	# spent 80µs (8+72) within List::Util::BEGIN@12 which was called: # once (8µs+72µs) by C4::Context::BEGIN@101 at line 12 use vars qw(@ISA @EXPORT_OK $VERSION $XS_VERSION $TESTING_PERL_ONLY); # spent 80µs making 1 call to List::Util::BEGIN@12 # spent 72µs making 1 call to vars::import
13	1	900ns			require Exporter;
14
15	1	10µ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	27µs			$VERSION = eval $VERSION; # spent 4µs executing statements in string eval
20
21	3	3µ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	251µs	XSLoader::load('List::Util', $XS_VERSION); # spent 251µs making 1 call to XSLoader::load
28					1;
29	3	260µs			} 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	800ns			if (!defined &sum) {
37					require List::Util::PP;
38					List::Util::PP->import;
39					}
40
41	1	13µs			1;
42
43					__END__