← 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:06 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Moose/Meta/Method/Meta.pm
StatementsExecuted 12 statements in 118µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
21110µs5.61msMoose::Meta::Method::Meta::::wrapMoose::Meta::Method::Meta::wrap
1119µs10µsMoose::Meta::Method::Meta::::BEGIN@4Moose::Meta::Method::Meta::BEGIN@4
1115µs25µsMoose::Meta::Method::Meta::::BEGIN@7Moose::Meta::Method::Meta::BEGIN@7
1114µs8µsMoose::Meta::Method::Meta::::BEGIN@5Moose::Meta::Method::Meta::BEGIN@5
0000s0sMoose::Meta::Method::Meta::::_is_caller_mop_internalMoose::Meta::Method::Meta::_is_caller_mop_internal
0000s0sMoose::Meta::Method::Meta::::_make_compatible_withMoose::Meta::Method::Meta::_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::Method::Meta;
21200nsour $VERSION = '2.1605';
3
4214µs212µs
# spent 10µs (9+1) within Moose::Meta::Method::Meta::BEGIN@4 which was called: # once (9µs+1µs) by Moose::Meta::Class::BEGIN@18 at line 4
use strict;
# spent 10µs making 1 call to Moose::Meta::Method::Meta::BEGIN@4 # spent 2µs making 1 call to strict::import
5214µs211µs
# spent 8µs (4+3) within Moose::Meta::Method::Meta::BEGIN@5 which was called: # once (4µs+3µs) by Moose::Meta::Class::BEGIN@18 at line 5
use warnings;
# spent 8µs making 1 call to Moose::Meta::Method::Meta::BEGIN@5 # spent 3µs making 1 call to warnings::import
6
713µs119µs
# spent 25µs (5+19) within Moose::Meta::Method::Meta::BEGIN@7 which was called: # once (5µs+19µs) by Moose::Meta::Class::BEGIN@18 at line 8
use parent 'Moose::Meta::Method',
# spent 19µs making 1 call to parent::import
8175µs125µs 'Class::MOP::Method::Meta';
# spent 25µs making 1 call to Moose::Meta::Method::Meta::BEGIN@7
9
10sub _is_caller_mop_internal {
11 my $self = shift;
12 my ($caller) = @_;
13 return 1 if $caller =~ /^Moose(?:::|$)/;
14 return $self->SUPER::_is_caller_mop_internal($caller);
15}
16
17# XXX: ugh multiple inheritance
18
# spent 5.61ms (10µs+5.60) within Moose::Meta::Method::Meta::wrap which was called 2 times, avg 2.80ms/call: # 2 times (10µs+5.60ms) by Class::MOP::Mixin::HasMethods::_add_meta_method at line 24 of Class/MOP/Mixin/HasMethods.pm, avg 2.80ms/call
sub wrap {
192700ns my $class = shift;
2028µs25.60ms return $class->Class::MOP::Method::Meta::wrap(@_);
# spent 5.60ms making 2 calls to Class::MOP::Method::Meta::wrap, avg 2.80ms/call
21}
22
23sub _make_compatible_with {
24 my $self = shift;
25 return $self->Class::MOP::Method::Meta::_make_compatible_with(@_);
26}
27
2812µs1;
29
30# ABSTRACT: A Moose Method metaclass for C<meta> methods
31
32__END__