| Filename | /Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/darwin-2level/mro.pm |
| Statements | Executed 9 statements in 4.49ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 651 | 6 | 4 | 1.09ms | 1.09ms | mro::get_linear_isa (xsub) |
| 160 | 1 | 1 | 93µs | 93µs | mro::method_changed_in (xsub) |
| 1 | 1 | 1 | 28µs | 30µs | mro::BEGIN@10 |
| 1 | 1 | 1 | 3µs | 36µs | mro::BEGIN@11 |
| 1 | 1 | 1 | 1µs | 1µs | mro::import |
| 0 | 0 | 0 | 0s | 0s | maybe::next::method |
| 0 | 0 | 0 | 0s | 0s | next::can |
| 0 | 0 | 0 | 0s | 0s | next::method |
| 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 | 32µs | 2 | 32µs | # spent 30µs (28+2) within mro::BEGIN@10 which was called:
# once (28µs+2µs) by Moo::_Utils::BEGIN@167 at line 10 # spent 30µs making 1 call to mro::BEGIN@10
# spent 2µs making 1 call to strict::import |
| 11 | 2 | 141µs | 2 | 69µs | # spent 36µs (3+33) within mro::BEGIN@11 which was called:
# once (3µs+33µs) by Moo::_Utils::BEGIN@167 at line 11 # spent 36µs making 1 call to mro::BEGIN@11
# spent 33µ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 | 1µs | our $VERSION = '1.26'; | ||
| 16 | |||||
| 17 | 1 | 0s | require XSLoader; | ||
| 18 | 1 | 4.31ms | 1 | 4.30ms | XSLoader::load('mro'); # spent 4.30ms making 1 call to XSLoader::load |
| 19 | |||||
| 20 | # spent 1µs within mro::import which was called:
# once (1µs+0s) by Mojo::Base::BEGIN@7 at line 7 of Mojo/Base.pm | ||||
| 21 | 1 | 3µs | 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 | 6µs | 1; | ||
| 44 | |||||
| 45 | __END__ | ||||
# spent 1.09ms within mro::get_linear_isa which was called 651 times, avg 2µs/call:
# 603 times (468µs+0s) by Role::Tiny::does_role at line 530 of Role/Tiny.pm, avg 776ns/call
# 18 times (44µs+0s) by Moo::_accessor_maker_for at line 182 of Moo.pm, avg 2µs/call
# 10 times (11µs+0s) by Moo::_constructor_maker_for at line 228 of Moo.pm, avg 1µs/call
# 10 times (6µs+0s) by Method::Generate::Constructor::install_delayed at line 78 of Method/Generate/Constructor.pm, avg 600ns/call
# 7 times (562µs+0s) by Method::Generate::Constructor::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Method/Generate/Constructor.pm:101] at line 82 of Method/Generate/Constructor.pm, avg 80µs/call
# 3 times (4µs+0s) by Method::Generate::BuildAll::buildall_body_for at line 36 of Method/Generate/BuildAll.pm, avg 1µs/call | |||||
# spent 93µs within mro::method_changed_in which was called 160 times, avg 581ns/call:
# 160 times (93µs+0s) by constant::import at line 198 of constant.pm, avg 581ns/call |