← Index
NYTProf Performance Profile   « line view »
For t/optimization.t
  Run on Thu Jan 8 22:47:42 2015
Reported on Thu Jan 8 22:48:05 2015

Filename/home/ss5/perl5/perlbrew/perls/tapper-perl/lib/site_perl/5.16.3/x86_64-linux/List/Util.pm
StatementsExecuted 17 statements in 588µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
71143µs103µsList::Util::::firstList::Util::first (xsub)
11123µs46µsList::Util::::BEGIN@9List::Util::BEGIN@9
11111µs11µsList::Util::::importList::Util::import
11110µs24µsList::Util::::BEGIN@30List::Util::BEGIN@30
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
92131µs268µs
# spent 46µs (23+22) within List::Util::BEGIN@9 which was called: # once (23µs+22µs) by Test::Deep::Cache::Simple::BEGIN@7 at line 9
use strict;
# spent 46µs making 1 call to List::Util::BEGIN@9 # spent 22µs making 1 call to strict::import
101600nsrequire Exporter;
11
1218µsour @ISA = qw(Exporter);
1314µ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);
171400nsour $VERSION = "1.38";
181300nsour $XS_VERSION = $VERSION;
19119µs$VERSION = eval $VERSION;
# spent 2µs executing statements in string eval
20
211700nsrequire XSLoader;
221322µs1312µsXSLoader::load('List::Util', $XS_VERSION);
# spent 312µs making 1 call to XSLoader::load
23
24sub import
25
# spent 11µs within List::Util::import which was called: # once (11µs+0s) by Data::DPath::Context::BEGIN@14 at line 14 of lib/Data/DPath/Context.pm
{
2611µ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
30278µs238µs
# spent 24µs (10+14) within List::Util::BEGIN@30 which was called: # once (10µs+14µs) by Test::Deep::Cache::Simple::BEGIN@7 at line 30
no strict 'refs';
# spent 24µs making 1 call to List::Util::BEGIN@30 # spent 14µs making 1 call to strict::unimport
3114µs ${"${pkg}::a"} = ${"${pkg}::a"};
3213µs ${"${pkg}::b"} = ${"${pkg}::b"};
33
3418µs175µs goto &Exporter::import;
# spent 75µs making 1 call to Exporter::import
35}
36
3718µs1;
38
39__END__
 
# spent 103µs (43+60) within List::Util::first which was called 7 times, avg 15µs/call: # 7 times (43µs+60µs) by Data::OptList::__is_a at line 27 of Data/OptList.pm, avg 15µs/call
sub List::Util::first; # xsub