Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/x86_64-linux/List/Util.pm |
Statements | Executed 18 statements in 505µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
30000 | 1 | 1 | 62.4ms | 62.4ms | shuffle (xsub) | List::Util::
7 | 2 | 2 | 145µs | 314µs | first (xsub) | List::Util::
1 | 1 | 1 | 27µs | 33µs | BEGIN@11 | List::Util::
1 | 1 | 1 | 11µs | 179µs | BEGIN@12 | List::Util::
1 | 1 | 1 | 2µs | 2µs | min (xsub) | 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 | 32µs | 2 | 39µs | # spent 33µs (27+6) within List::Util::BEGIN@11 which was called:
# once (27µs+6µs) by Tie::RefHash::BEGIN@96 at line 11 # spent 33µs making 1 call to List::Util::BEGIN@11
# spent 6µs making 1 call to strict::import |
12 | 2 | 132µs | 2 | 348µs | # spent 179µs (11+169) within List::Util::BEGIN@12 which was called:
# once (11µs+169µs) by Tie::RefHash::BEGIN@96 at line 12 # spent 179µs making 1 call to List::Util::BEGIN@12
# spent 169µs making 1 call to vars::import |
13 | 1 | 2µs | require Exporter; | ||
14 | |||||
15 | 1 | 7µs | @ISA = qw(Exporter); | ||
16 | 1 | 2µs | @EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle); | ||
17 | 1 | 1µs | $VERSION = "1.23"; | ||
18 | 1 | 1µs | $XS_VERSION = $VERSION; | ||
19 | 1 | 15µs | $VERSION = eval $VERSION; # spent 3µs executing statements in string eval | ||
20 | |||||
21 | 1 | 2µ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 | 2µs | local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY}; | ||
25 | eval { | ||||
26 | 1 | 2µs | require XSLoader; | ||
27 | 1 | 289µs | 1 | 281µs | XSLoader::load('List::Util', $XS_VERSION); # spent 281µs making 1 call to XSLoader::load |
28 | 1 | 2µs | 1; | ||
29 | 1 | 2µ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 | 1µs | if (!defined &sum) { | ||
38 | require List::Util::PP; | ||||
39 | List::Util::PP->import; | ||||
40 | } | ||||
41 | |||||
42 | 1 | 12µs | 1; | ||
43 | |||||
44 | __END__ | ||||
# spent 314µs (145+168) within List::Util::first which was called 7 times, avg 45µs/call:
# 4 times (51µs+78µs) by Data::OptList::__is_a at line 143 of Data/OptList.pm, avg 32µs/call
# 3 times (95µs+90µs) by Hailo::_new_class at line 189 of Hailo.pm, avg 62µs/call | |||||
# spent 2µs within List::Util::min which was called:
# once (2µs+0s) by Hailo::Engine::Default::__ANON__[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Hailo/Engine/Default.pm:24] at line 23 of Hailo/Engine/Default.pm | |||||
# spent 62.4ms within List::Util::shuffle which was called 30000 times, avg 2µs/call:
# 30000 times (62.4ms+0s) by Hailo::Engine::Default::reply at line 52 of Hailo/Engine/Default.pm, avg 2µs/call |