← Index
NYTProf Performance Profile   « line view »
For t/bug-md-11.t
  Run on Fri Mar 8 13:27:24 2024
Reported on Fri Mar 8 13:30:23 2024

Filename/home/micha/.plenv/versions/5.38.2/lib/perl5/5.38.2/x86_64-linux/mro.pm
StatementsExecuted 8 statements in 260µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1731146µs46µsmro::::method_changed_in mro::method_changed_in (xsub)
311134µs34µsmro::::get_linear_isa mro::get_linear_isa (xsub)
11110µs12µsmro::::BEGIN@10 mro::BEGIN@10
1113µs20µsmro::::BEGIN@11 mro::BEGIN@11
0000s0smaybe::next::::methodmaybe::next::method
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;
10222µs213µs
# spent 12µs (10+2) within mro::BEGIN@10 which was called: # once (10µs+2µs) by Test2::Util::HashBase::BEGIN@33 at line 10
use strict;
# spent 12µs making 1 call to mro::BEGIN@10 # spent 2µs making 1 call to strict::import
112114µs237µs
# spent 20µs (3+17) within mro::BEGIN@11 which was called: # once (3µs+17µs) by Test2::Util::HashBase::BEGIN@33 at line 11
use warnings;
# spent 20µs making 1 call to mro::BEGIN@11 # spent 17µs making 1 call to warnings::import
12
13# mro.pm versions < 1.00 reserved for MRO::Compat
14# for partial back-compat to 5.[68].x
151300nsour $VERSION = '1.28';
16
171300nsrequire XSLoader;
181120µs1115µsXSLoader::load('mro');
# spent 115µs making 1 call to XSLoader::load
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
4313µs1;
44
45__END__
 
# spent 34µs within mro::get_linear_isa which was called 31 times, avg 1µs/call: # 31 times (34µs+0s) by Test2::Util::HashBase::import at line 63 of Test2/Util/HashBase.pm, avg 1µs/call
sub mro::get_linear_isa; # xsub
# spent 46µs within mro::method_changed_in which was called 173 times, avg 268ns/call: # 173 times (46µs+0s) by constant::import at line 198 of constant.pm, avg 268ns/call
sub mro::method_changed_in; # xsub