| Filename | /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1/x86_64-linux/List/Util.pm |
| Statements | Executed 20 statements in 1.52ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1601 | 3 | 3 | 27.5ms | 67.5ms | List::Util::first (xsub) |
| 1 | 1 | 1 | 75µs | 94µs | List::Util::BEGIN@11 |
| 1 | 1 | 1 | 34µs | 426µs | List::Util::BEGIN@12 |
| 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 | 122µs | 2 | 112µs | # spent 94µs (75+19) within List::Util::BEGIN@11 which was called:
# once (75µs+19µs) by Class::MOP::BEGIN@12 at line 11 # spent 94µs making 1 call to List::Util::BEGIN@11
# spent 18µs making 1 call to strict::import |
| 12 | 3 | 519µs | 2 | 817µs | # spent 426µs (34+391) within List::Util::BEGIN@12 which was called:
# once (34µs+391µs) by Class::MOP::BEGIN@12 at line 12 # spent 426µs making 1 call to List::Util::BEGIN@12
# spent 391µs making 1 call to vars::import |
| 13 | 1 | 3µs | require Exporter; | ||
| 14 | |||||
| 15 | 1 | 27µs | @ISA = qw(Exporter); | ||
| 16 | 1 | 8µs | @EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle); | ||
| 17 | 1 | 2µs | $VERSION = "1.21"; | ||
| 18 | 1 | 2µs | $XS_VERSION = $VERSION; | ||
| 19 | 1 | 60µs | $VERSION = eval $VERSION; # spent 11µs executing statements in string eval | ||
| 20 | |||||
| 21 | 1 | 5µ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 | 4µs | local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY}; | ||
| 25 | eval { | ||||
| 26 | 1 | 3µs | require XSLoader; | ||
| 27 | 1 | 713µs | 1 | 687µs | XSLoader::load('List::Util', $XS_VERSION); # spent 687µs making 1 call to XSLoader::load |
| 28 | 1 | 4µs | 1; | ||
| 29 | 1 | 4µ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 | 41µs | 1; | ||
| 43 | |||||
| 44 | __END__ | ||||
# spent 67.5ms (27.5+40.0) within List::Util::first which was called 1601 times, avg 42µs/call:
# 1390 times (26.1ms+40.0ms) by Data::OptList::__is_a at line 143 of Data/OptList.pm, avg 48µs/call
# 169 times (816µs+0s) by namespace::autoclean::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/namespace/autoclean.pm:57] at line 51 of namespace/autoclean.pm, avg 5µs/call
# 42 times (608µs+0s) by Moose::Util::MetaRole::_make_new_metaclass at line 117 of Moose/Util/MetaRole.pm, avg 14µs/call |