Filename | /usr/lib/perl/5.14/List/Util.pm |
Statements | Executed 18 statements in 642µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 24µs | 32µs | BEGIN@11 | List::Util::
1 | 1 | 1 | 16µs | 176µ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 | 2 | 49µs | 2 | 39µs | # spent 32µs (24+7) within List::Util::BEGIN@11 which was called:
# once (24µs+7µs) by Error::BEGIN@46 at line 11 # spent 32µs making 1 call to List::Util::BEGIN@11
# spent 7µs making 1 call to strict::import |
12 | 2 | 232µs | 2 | 337µs | # spent 176µs (16+161) within List::Util::BEGIN@12 which was called:
# once (16µs+161µs) by Error::BEGIN@46 at line 12 # spent 176µs making 1 call to List::Util::BEGIN@12
# spent 161µs making 1 call to vars::import |
13 | 1 | 2µs | require Exporter; | ||
14 | |||||
15 | 1 | 9µs | @ISA = qw(Exporter); | ||
16 | 1 | 4µs | @EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle); | ||
17 | 1 | 2µs | $VERSION = "1.23"; | ||
18 | 1 | 1µs | $XS_VERSION = $VERSION; | ||
19 | 1 | 22µs | $VERSION = eval $VERSION; # spent 4µs executing statements in string eval | ||
20 | |||||
21 | 3 | 8µ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 | 277µs | XSLoader::load('List::Util', $XS_VERSION); # spent 277µs making 1 call to XSLoader::load | ||
28 | 1; | ||||
29 | 3 | 294µ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 | 2µs | if (!defined &sum) { | ||
37 | require List::Util::PP; | ||||
38 | List::Util::PP->import; | ||||
39 | } | ||||
40 | |||||
41 | 1 | 18µs | 1; | ||
42 | |||||
43 | __END__ |