← Index
NYTProf Performance Profile   « line view »
For /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage
  Run on Mon Jan 29 16:55:34 2018
Reported on Mon Jan 29 16:57:07 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Moose/Meta/Role/Method.pm
StatementsExecuted 8 statements in 81µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1119µs10µsMoose::Meta::Role::Method::::BEGIN@4Moose::Meta::Role::Method::BEGIN@4
1115µs8µsMoose::Meta::Role::Method::::BEGIN@5Moose::Meta::Role::Method::BEGIN@5
1114µs23µsMoose::Meta::Role::Method::::BEGIN@7Moose::Meta::Role::Method::BEGIN@7
0000s0sMoose::Meta::Role::Method::::_make_compatible_withMoose::Meta::Role::Method::_make_compatible_with
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Moose::Meta::Role::Method;
21200nsour $VERSION = '2.1605';
3
4214µs212µs
# spent 10µs (9+1) within Moose::Meta::Role::Method::BEGIN@4 which was called: # once (9µs+1µs) by Moose::Meta::Role::BEGIN@12 at line 4
use strict;
# spent 10µs making 1 call to Moose::Meta::Role::Method::BEGIN@4 # spent 2µs making 1 call to strict::import
5217µs211µs
# spent 8µs (5+3) within Moose::Meta::Role::Method::BEGIN@5 which was called: # once (5µs+3µs) by Moose::Meta::Role::BEGIN@12 at line 5
use warnings;
# spent 8µs making 1 call to Moose::Meta::Role::Method::BEGIN@5 # spent 3µs making 1 call to warnings::import
6
7248µs242µs
# spent 23µs (4+19) within Moose::Meta::Role::Method::BEGIN@7 which was called: # once (4µs+19µs) by Moose::Meta::Role::BEGIN@12 at line 7
use parent 'Moose::Meta::Method';
# spent 23µs making 1 call to Moose::Meta::Role::Method::BEGIN@7 # spent 19µs making 1 call to parent::import
8
9sub _make_compatible_with {
10 my $self = shift;
11 my ($other) = @_;
12
13 # XXX: this is pretty gross. the issue here is blah blah blah
14 # see the comments in CMOP::Method::Meta and CMOP::Method::Wrapped
15 return $self unless $other->_is_compatible_with($self->_real_ref_name);
16
17 return $self->SUPER::_make_compatible_with(@_);
18}
19
2012µs1;
21
22# ABSTRACT: A Moose Method metaclass for Roles
23
24__END__