← Index
NYTProf Performance Profile   « line view »
For rbm/rbm
  Run on Wed Feb 12 03:38:15 2020
Reported on Wed Feb 12 04:56:35 2020

Filename/usr/lib/x86_64-linux-gnu/perl/5.28/List/Util.pm
StatementsExecuted 15 statements in 428µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11110µs12µsList::Util::::BEGIN@9 List::Util::BEGIN@9
1117µs18µsList::Util::::BEGIN@31 List::Util::BEGIN@31
1115µs17µsList::Util::::BEGIN@10 List::Util::BEGIN@10
0000s0sList::Util::_Pair::::keyList::Util::_Pair::key
0000s0sList::Util::_Pair::::valueList::Util::_Pair::value
0000s0sList::Util::::import List::Util::import
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
9219µs215µs
# spent 12µs (10+2) within List::Util::BEGIN@9 which was called: # once (10µs+2µs) by YAML::XS::BEGIN@21 at line 9
use strict;
# spent 12µs making 1 call to List::Util::BEGIN@9 # spent 2µs making 1 call to strict::import
10294µs229µs
# spent 17µs (5+12) within List::Util::BEGIN@10 which was called: # once (5µs+12µs) by YAML::XS::BEGIN@21 at line 10
use warnings;
# spent 17µs making 1 call to List::Util::BEGIN@10 # spent 12µs making 1 call to warnings::import
111400nsrequire Exporter;
12
1314µsour @ISA = qw(Exporter);
1412µsour @EXPORT_OK = qw(
15 all any first min max minstr maxstr none notall product reduce sum sum0 shuffle uniq uniqnum uniqstr
16 head tail pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
17);
181100nsour $VERSION = "1.50";
191200nsour $XS_VERSION = $VERSION;
20113µs$VERSION = eval $VERSION;
# spent 2µs executing statements in string eval
21
221400nsrequire XSLoader;
231179µs1172µsXSLoader::load('List::Util', $XS_VERSION);
# spent 172µs making 1 call to XSLoader::load
24
25sub import
26{
27 my $pkg = caller;
28
29 # (RT88848) Touch the caller's $a and $b, to avoid the warning of
30 # Name "main::a" used only once: possible typo" warning
312107µs230µs
# spent 18µs (7+12) within List::Util::BEGIN@31 which was called: # once (7µs+12µs) by YAML::XS::BEGIN@21 at line 31
no strict 'refs';
# spent 18µs making 1 call to List::Util::BEGIN@31 # spent 12µs making 1 call to strict::unimport
32 ${"${pkg}::a"} = ${"${pkg}::a"};
33 ${"${pkg}::b"} = ${"${pkg}::b"};
34
35 goto &Exporter::import;
36}
37
38# For objects returned by pairs()
39sub List::Util::_Pair::key { shift->[0] }
40sub List::Util::_Pair::value { shift->[1] }
41
4218µs1;