Filename | /usr/local/lib/perl5/5.32/mach/mro.pm |
Statements | Executed 0 statements in 0s |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
4 | 1 | 1 | 4µs | 4µs | method_changed_in (xsub) | mro::
0 | 0 | 0 | 0s | 0s | method | maybe::next::
0 | 0 | 0 | 0s | 0s | BEGIN@10 | mro::
0 | 0 | 0 | 0s | 0s | BEGIN@11 | mro::
0 | 0 | 0 | 0s | 0s | get_linear_isa (xsub) | mro::
0 | 0 | 0 | 0s | 0s | import | mro::
0 | 0 | 0 | 0s | 0s | can | next::
0 | 0 | 0 | 0s | 0s | method | next::
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 | use strict; | ||||
11 | use warnings; | ||||
12 | |||||
13 | # mro.pm versions < 1.00 reserved for MRO::Compat | ||||
14 | # for partial back-compat to 5.[68].x | ||||
15 | our $VERSION = '1.23'; | ||||
16 | |||||
17 | require XSLoader; | ||||
18 | XSLoader::load('mro'); | ||||
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; | ||||
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 |