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 531µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
10 | 2 | 2 | 183µs | 387µs | first (xsub) | List::Util::
1 | 1 | 1 | 27µs | 32µs | BEGIN@11 | List::Util::
1 | 1 | 1 | 11µs | 133µs | BEGIN@12 | List::Util::
2 | 1 | 1 | 5µs | 5µs | max (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 | 64µs | 2 | 37µs | # spent 32µs (27+5) within List::Util::BEGIN@11 which was called:
# once (27µs+5µs) by Mouse::Util::BEGIN@81 at line 11 # spent 32µs making 1 call to List::Util::BEGIN@11
# spent 5µs making 1 call to strict::import |
12 | 2 | 147µs | 2 | 255µs | # spent 133µs (11+122) within List::Util::BEGIN@12 which was called:
# once (11µs+122µs) by Mouse::Util::BEGIN@81 at line 12 # spent 133µs making 1 call to List::Util::BEGIN@12
# spent 122µs making 1 call to vars::import |
13 | 1 | 1µs | require Exporter; | ||
14 | |||||
15 | 1 | 8µ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 | 25µ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 | 259µs | 1 | 252µs | XSLoader::load('List::Util', $XS_VERSION); # spent 252µ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 | 11µs | 1; | ||
43 | |||||
44 | __END__ | ||||
# spent 387µs (183+204) within List::Util::first which was called 10 times, avg 39µs/call:
# 7 times (89µs+126µs) by Data::OptList::__is_a at line 143 of Data/OptList.pm, avg 31µs/call
# 3 times (94µs+78µs) by Hailo::_new_class at line 183 of lib/Hailo.pm, avg 57µs/call | |||||
# spent 5µs within List::Util::max which was called 2 times, avg 3µs/call:
# 2 times (5µs+0s) by Getopt::Long::Descriptive::Usage::option_text at line 88 of Getopt/Long/Descriptive/Usage.pm, avg 3µs/call |