← Index
NYTProf Performance Profile   « block view • line view • sub view »
For reply.pl
  Run on Thu Oct 21 22:40:13 2010
Reported on Thu Oct 21 22:44:42 2010

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/x86_64-linux/List/Util.pm
StatementsExecuted 18 statements in 505µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
300001162.4ms62.4msList::Util::::shuffleList::Util::shuffle (xsub)
722145µs314µsList::Util::::firstList::Util::first (xsub)
11127µs33µsList::Util::::BEGIN@11List::Util::BEGIN@11
11111µs179µsList::Util::::BEGIN@12List::Util::BEGIN@12
1112µs2µsList::Util::::minList::Util::min (xsub)
Call graph for these subroutines as a Graphviz dot language file.
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
9package List::Util;
10
11232µs239µ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
use strict;
# spent 33µs making 1 call to List::Util::BEGIN@11 # spent 6µs making 1 call to strict::import
122132µs2348µ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
use vars qw(@ISA @EXPORT_OK $VERSION $XS_VERSION $TESTING_PERL_ONLY);
# spent 179µs making 1 call to List::Util::BEGIN@12 # spent 169µs making 1 call to vars::import
1312µsrequire Exporter;
14
1517µs@ISA = qw(Exporter);
1612µs@EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
1711µs$VERSION = "1.23";
1811µs$XS_VERSION = $VERSION;
19115µs$VERSION = eval $VERSION;
# spent 3µs executing statements in string eval
20
2112µseval {
22 # PERL_DL_NONLAZY must be false, or any errors in loading will just
23 # cause the perl code to be tested
2412µs local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY};
25 eval {
2612µs require XSLoader;
271289µs1281µs XSLoader::load('List::Util', $XS_VERSION);
# spent 281µs making 1 call to XSLoader::load
2812µs 1;
2912µ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
3711µsif (!defined &sum) {
38 require List::Util::PP;
39 List::Util::PP->import;
40}
41
42112µs1;
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
sub List::Util::first; # xsub
# 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
sub List::Util::min; # xsub
# 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
sub List::Util::shuffle; # xsub