| 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 | List::Util::shuffle (xsub) |
| 7 | 2 | 2 | 145µs | 314µs | List::Util::first (xsub) |
| 1 | 1 | 1 | 27µs | 33µs | List::Util::BEGIN@11 |
| 1 | 1 | 1 | 11µs | 179µs | List::Util::BEGIN@12 |
| 1 | 1 | 1 | 2µs | 2µs | List::Util::min (xsub) |
| 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 | 3 | 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 | local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY}; | ||||
| 25 | eval { | ||||
| 26 | require XSLoader; | ||||
| 27 | 1 | 281µs | XSLoader::load('List::Util', $XS_VERSION); # spent 281µs making 1 call to XSLoader::load | ||
| 28 | 1; | ||||
| 29 | 3 | 292µ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 |