Profile of mro.pm

← 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
Statements | Executed 8 statements in 260µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
173 | 1 | 1 | 46µs | 46µs | mro::::method_changed_in mro::method_changed_in (xsub)
31 | 1 | 1 | 34µs | 34µs | mro::::get_linear_isa mro::get_linear_isa (xsub)
1 | 1 | 1 | 10µs | 12µs | mro::::BEGIN@10 mro::BEGIN@10
1 | 1 | 1 | 3µs | 20µs | mro::::BEGIN@11 mro::BEGIN@11
0 | 0 | 0 | 0s | 0s | maybe::next::::methodmaybe::next::method
0 | 0 | 0 | 0s | 0s | mro::::import mro::import
0 | 0 | 0 | 0s | 0s | next::::can next::can
0 | 0 | 0 | 0s | 0s | next::::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 |  |  |  |  | #
9 |  |  |  |  | package mro;
10 | 2 | 22µs | 2 | 13µ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
11 | 2 | 114µs | 2 | 37µ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
15 | 1 | 300ns |  |  | our $VERSION = '1.28';
16 |  |  |  |  |
17 | 1 | 300ns |  |  | require XSLoader;
18 | 1 | 120µs | 1 | 115µs | XSLoader::load('mro'); # spent 115µs making 1 call to XSLoader::load
19 |  |  |  |  |
20 |  |  |  |  | sub import {
21 |  |  |  |  | mro::set_mro(scalar(caller), $_[1]) if $_[1];
22 |  |  |  |  | }
23 |  |  |  |  |
24 |  |  |  |  | package # hide me from PAUSE
25 |  |  |  |  | next;
26 |  |  |  |  |
27 |  |  |  |  | sub can { mro::_nextcan($_[0], 0) }
28 |  |  |  |  |
29 |  |  |  |  | sub method {
30 |  |  |  |  | my $method = mro::_nextcan($_[0], 1);
31 |  |  |  |  | goto &$method;
32 |  |  |  |  | }
33 |  |  |  |  |
34 |  |  |  |  | package # hide me from PAUSE
35 |  |  |  |  | maybe::next;
36 |  |  |  |  |
37 |  |  |  |  | sub method {
38 |  |  |  |  | my $method = mro::_nextcan($_[0], 0);
39 |  |  |  |  | goto &$method if defined $method;
40 |  |  |  |  | return;
41 |  |  |  |  | }
42 |  |  |  |  |
43 | 1 | 3µs |  |  | 1;
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