← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mentat.storage.mongo.pl
  Run on Tue Jun 24 09:58:41 2014
Reported on Tue Jun 24 09:59:11 2014

Filename/usr/local/lib/perl/5.14.2/List/Util.pm
StatementsExecuted 61 statements in 937µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
4342126µs305µsList::Util::::firstList::Util::first (xsub)
66683µs83µsList::Util::::importList::Util::import
11126µs33µsList::Util::::BEGIN@11List::Util::BEGIN@11
11114µs37µ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
112233µs241µs
# spent 33µs (26+8) within List::Util::BEGIN@11 which was called: # once (26µs+8µs) by Value::Convertor::BEGIN@53 at line 11
use strict;
# spent 33µs making 1 call to List::Util::BEGIN@11 # spent 7µs making 1 call to strict::import
1211µsrequire Exporter;
13
14112µsour @ISA = qw(Exporter);
1516µ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);
191500nsour $VERSION = "1.35";
201400nsour $XS_VERSION = $VERSION;
21129µs$VERSION = eval $VERSION;
# spent 5µs executing statements in string eval
22
231700nsrequire XSLoader;
241378µs1362µsXSLoader::load('List::Util', $XS_VERSION);
# spent 362µs making 1 call to XSLoader::load
25
26sub import
27
# spent 83µs within List::Util::import which was called 6 times, avg 14µs/call: # once (31µs+0s) by DateTime::TimeZone::OlsonDB::Observance::BEGIN@16 at line 16 of DateTime/TimeZone/OlsonDB/Observance.pm # once (20µs+0s) by DateTime::TimeZone::OlsonDB::Zone::BEGIN@17 at line 17 of DateTime/TimeZone/OlsonDB/Zone.pm # once (9µs+0s) by Moose::Util::MetaRole::BEGIN@15 at line 15 of Moose/Util/MetaRole.pm # once (8µs+0s) by Moose::Meta::TypeConstraint::Union::BEGIN@17 at line 17 of Moose/Meta/TypeConstraint/Union.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
{
2848109µ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
322150µs260µs
# spent 37µs (14+23) within List::Util::BEGIN@32 which was called: # once (14µs+23µs) by Value::Convertor::BEGIN@53 at line 32
no strict 'refs';
# spent 37µs making 1 call to List::Util::BEGIN@32 # spent 23µs making 1 call to strict::unimport
33 ${"${pkg}::a"} = ${"${pkg}::a"};
34 ${"${pkg}::b"} = ${"${pkg}::b"};
35
366287µs goto &Exporter::import;
# spent 287µs making 6 calls to Exporter::import, avg 48µs/call
37}
38
39117µs1;
40
41__END__
 
# spent 305µs (126+179) within List::Util::first which was called 43 times, avg 7µs/call: # 37 times (91µs+170µs) by Data::OptList::__is_a at line 27 of Data/OptList.pm, avg 7µs/call # 4 times (17µs+7µs) by Sub::Exporter::Progressive::__ANON__[/usr/local/share/perl/5.14.2/Sub/Exporter/Progressive.pm:40] at line 26 of Sub/Exporter/Progressive.pm, avg 6µs/call # once (15µs+2µs) by Sub::Exporter::Progressive::sub_export_options at line 71 of Sub/Exporter/Progressive.pm # once (2µs+0s) by Sub::Exporter::Progressive::sub_export_options at line 66 of Sub/Exporter/Progressive.pm
sub List::Util::first; # xsub