← Index
NYTProf Performance Profile   « line view »
For fastest.pl
  Run on Fri Jan 31 20:48:16 2014
Reported on Fri Jan 31 20:49:40 2014

Filename/opt/perl-5.18.1/lib/site_perl/5.18.1/darwin-thread-multi-2level/List/Util.pm
StatementsExecuted 29 statements in 647µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
4342172µs409µsList::Util::::firstList::Util::first (xsub)
44440µs40µsList::Util::::importList::Util::import
11120µs37µsList::Util::::BEGIN@11List::Util::BEGIN@11
11113µs27µsList::Util::::BEGIN@32List::Util::BEGIN@32
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# Maintained since 2013 by Paul Evans <leonerd@leonerd.org.uk>
8
9package List::Util;
10
112131µs253µs
# spent 37µs (20+17) within List::Util::BEGIN@11 which was called: # once (20µs+17µs) by Mouse::Util::BEGIN@136 at line 11
use strict;
# spent 37µs making 1 call to List::Util::BEGIN@11 # spent 17µs making 1 call to strict::import
121400nsrequire Exporter;
13
1418µsour @ISA = qw(Exporter);
1514µsour @EXPORT_OK = qw(
16 all any first min max minstr maxstr none notall product reduce sum sum0 shuffle
17 pairmap pairgrep pairfirst pairs pairkeys pairvalues
18);
191400nsour $VERSION = "1.35";
201200nsour $XS_VERSION = $VERSION;
21114µs$VERSION = eval $VERSION;
# spent 3µs executing statements in string eval
22
231300nsrequire XSLoader;
241305µs1296µsXSLoader::load('List::Util', $XS_VERSION);
# spent 296µs making 1 call to XSLoader::load
25
26sub import
27
# spent 40µs within List::Util::import which was called 4 times, avg 10µs/call: # once (14µs+0s) by Moose::Meta::TypeConstraint::Union::BEGIN@17 at line 17 of Moose/Meta/TypeConstraint/Union.pm # once (11µs+0s) by Moose::Util::MetaRole::BEGIN@15 at line 15 of Moose/Util/MetaRole.pm # once (8µs+0s) by Moose::Meta::Class::BEGIN@17 at line 17 of Moose/Meta/Class.pm # once (7µs+0s) by Moose::Util::BEGIN@17 at line 17 of Moose/Util.pm
{
2843µs my $pkg = caller;
29
30 # (RT88848) Touch the caller's $a and $b, to avoid the warning of
31 # Name "main::a" used only once: possible typo" warning
322104µs241µs
# spent 27µs (13+14) within List::Util::BEGIN@32 which was called: # once (13µs+14µs) by Mouse::Util::BEGIN@136 at line 32
no strict 'refs';
# spent 27µs making 1 call to List::Util::BEGIN@32 # spent 14µs making 1 call to strict::unimport
33415µs ${"${pkg}::a"} = ${"${pkg}::a"};
34411µs ${"${pkg}::b"} = ${"${pkg}::b"};
35
36435µs4144µs goto &Exporter::import;
# spent 144µs making 4 calls to Exporter::import, avg 36µs/call
37}
38
39115µs1;
40
41__END__
 
# spent 409µs (172+237) within List::Util::first which was called 43 times, avg 10µs/call: # 37 times (124µs+226µs) by Data::OptList::__is_a at line 27 of Data/OptList.pm, avg 9µs/call # 4 times (22µs+8µs) by Sub::Exporter::Progressive::__ANON__[/opt/perl-5.18.1/lib/site_perl/5.18.1/Sub/Exporter/Progressive.pm:40] at line 26 of Sub/Exporter/Progressive.pm, avg 8µs/call # once (19µs+0s) by Sub::Exporter::Progressive::sub_export_options at line 66 of Sub/Exporter/Progressive.pm # once (7µs+3µs) by Sub::Exporter::Progressive::sub_export_options at line 71 of Sub/Exporter/Progressive.pm
sub List::Util::first; # xsub