← Index
NYTProf Performance Profile   « line view »
For bin/benchmark-perlformance
  Run on Fri Apr 17 15:31:48 2015
Reported on Fri Apr 17 15:32:02 2015

Filename/home/ss5/perl5/perlbrew/perls/tapper-perl/lib/site_perl/5.16.3/x86_64-linux/List/Util.pm
StatementsExecuted 21 statements in 348µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
71132µs75µsList::Util::::firstList::Util::first (xsub)
22215µs15µsList::Util::::importList::Util::import
11111µs21µsList::Util::::BEGIN@9List::Util::BEGIN@9
1117µs15µsList::Util::::BEGIN@30List::Util::BEGIN@30
1112µs2µsList::Util::::maxList::Util::max (xsub)
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# Copyright (c) 1997-2009 Graham Barr <gbarr@pobox.com>. All rights reserved.
2# This program is free software; you can redistribute it and/or
3# modify it under the same terms as Perl itself.
4#
5# Maintained since 2013 by Paul Evans <leonerd@leonerd.org.uk>
6
7package List::Util;
8
9275µs231µs
# spent 21µs (11+10) within List::Util::BEGIN@9 which was called: # once (11µs+10µs) by Benchmark::Perl::Formance::BEGIN@16 at line 9
use strict;
# spent 21µs making 1 call to List::Util::BEGIN@9 # spent 10µs making 1 call to strict::import
101600nsrequire Exporter;
11
1215µsour @ISA = qw(Exporter);
1312µsour @EXPORT_OK = qw(
14 all any first min max minstr maxstr none notall product reduce sum sum0 shuffle
15 pairmap pairgrep pairfirst pairs pairkeys pairvalues
16);
171200nsour $VERSION = "1.38";
181200nsour $XS_VERSION = $VERSION;
19110µs$VERSION = eval $VERSION;
# spent 2µs executing statements in string eval
20
211200nsrequire XSLoader;
221176µs1168µsXSLoader::load('List::Util', $XS_VERSION);
# spent 168µs making 1 call to XSLoader::load
23
24sub import
25
# spent 15µs within List::Util::import which was called 2 times, avg 8µs/call: # once (8µs+0s) by Data::DPath::Context::BEGIN@20 at line 20 of Data/DPath/Context.pm # once (7µs+0s) by Benchmark::Perl::Formance::BEGIN@16 at line 16 of lib/Benchmark/Perl/Formance.pm
{
2621µs my $pkg = caller;
27
28 # (RT88848) Touch the caller's $a and $b, to avoid the warning of
29 # Name "main::a" used only once: possible typo" warning
30252µs224µs
# spent 15µs (7+9) within List::Util::BEGIN@30 which was called: # once (7µs+9µs) by Benchmark::Perl::Formance::BEGIN@16 at line 30
no strict 'refs';
# spent 15µs making 1 call to List::Util::BEGIN@30 # spent 9µs making 1 call to strict::unimport
3126µs ${"${pkg}::a"} = ${"${pkg}::a"};
3223µs ${"${pkg}::b"} = ${"${pkg}::b"};
33
34212µs272µs goto &Exporter::import;
# spent 72µs making 2 calls to Exporter::import, avg 36µs/call
35}
36
3715µs1;
38
39__END__
 
# spent 75µs (32+43) within List::Util::first which was called 7 times, avg 11µs/call: # 7 times (32µs+43µs) by Data::OptList::__is_a at line 27 of Data/OptList.pm, avg 11µs/call
sub List::Util::first; # xsub
# spent 2µs within List::Util::max which was called: # once (2µs+0s) by Benchmark::Perl::Formance::print_outstyle_summary at line 720 of lib/Benchmark/Perl/Formance.pm
sub List::Util::max; # xsub