Filename | /usr/lib/perl5/vendor_perl/5.12.4/i686-linux/List/Util.pm |
Statements | Executed 20 statements in 2.00ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 92µs | 119µs | BEGIN@11 | List::Util::
1 | 1 | 1 | 47µs | 564µs | BEGIN@12 | List::Util::
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 | 154µs | 2 | 145µs | # spent 119µs (92+26) within List::Util::BEGIN@11 which was called:
# once (92µs+26µs) by DateTime::Helpers::BEGIN@9 at line 11 # spent 119µs making 1 call to List::Util::BEGIN@11
# spent 26µs making 1 call to strict::import |
12 | 3 | 769µs | 2 | 1.08ms | # spent 564µs (47+518) within List::Util::BEGIN@12 which was called:
# once (47µs+518µs) by DateTime::Helpers::BEGIN@9 at line 12 # spent 564µs making 1 call to List::Util::BEGIN@12
# spent 518µs making 1 call to vars::import |
13 | 1 | 4µs | require Exporter; | ||
14 | |||||
15 | 1 | 67µs | @ISA = qw(Exporter); | ||
16 | 1 | 11µs | @EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle); | ||
17 | 1 | 4µs | $VERSION = "1.23"; | ||
18 | 1 | 4µs | $XS_VERSION = $VERSION; | ||
19 | 1 | 78µs | $VERSION = eval $VERSION; # spent 15µs executing statements in string eval | ||
20 | |||||
21 | 1 | 7µ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 | 5µs | local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY}; | ||
25 | eval { | ||||
26 | 1 | 5µs | require XSLoader; | ||
27 | 1 | 826µs | 1 | 791µs | XSLoader::load('List::Util', $XS_VERSION); # spent 791µs making 1 call to XSLoader::load |
28 | 1 | 6µs | 1; | ||
29 | 1 | 6µ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 | |||||
37 | 1 | 4µs | if (!defined &sum) { | ||
38 | require List::Util::PP; | ||||
39 | List::Util::PP->import; | ||||
40 | } | ||||
41 | |||||
42 | 1 | 54µs | 1; | ||
43 | |||||
44 | __END__ |