← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:05 2021

Filename/usr/local/lib/perl5/5.32/mach/mro.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
4114µs4µsmro::::method_changed_in mro::method_changed_in (xsub)
0000s0smaybe::next::::methodmaybe::next::method
0000s0smro::::BEGIN@10 mro::BEGIN@10
0000s0smro::::BEGIN@11 mro::BEGIN@11
0000s0smro::::get_linear_isa mro::get_linear_isa (xsub)
0000s0smro::::import mro::import
0000s0snext::::can next::can
0000s0snext::::method next::method
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# mro.pm
2#
3# Copyright (c) 2007 Brandon L Black
4# Copyright (c) 2008,2009 Larry Wall and others
5#
6# You may distribute under the terms of either the GNU General Public
7# License or the Artistic License, as specified in the README file.
8#
9package mro;
10use strict;
11use warnings;
12
13# mro.pm versions < 1.00 reserved for MRO::Compat
14# for partial back-compat to 5.[68].x
15our $VERSION = '1.23';
16
17require XSLoader;
18XSLoader::load('mro');
19
20sub import {
21 mro::set_mro(scalar(caller), $_[1]) if $_[1];
22}
23
24package # hide me from PAUSE
25 next;
26
27sub can { mro::_nextcan($_[0], 0) }
28
29sub method {
30 my $method = mro::_nextcan($_[0], 1);
31 goto &$method;
32}
33
34package # hide me from PAUSE
35 maybe::next;
36
37sub method {
38 my $method = mro::_nextcan($_[0], 0);
39 goto &$method if defined $method;
40 return;
41}
42
431;
44
45__END__
 
# spent 4µs within mro::method_changed_in which was called 4 times, avg 1µs/call: # 4 times (4µs+0s) by constant::import at line 198 of constant.pm, avg 1µs/call
sub mro::method_changed_in; # xsub