← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mentat.storage.mongo.pl
  Run on Tue Jun 24 10:04:38 2014
Reported on Tue Jun 24 10:05:07 2014

Filename/usr/local/lib/perl/5.14.2/Moose/Meta/Method/Meta.pm
StatementsExecuted 34 statements in 262µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
121151µs3.68msMoose::Meta::Method::Meta::::wrapMoose::Meta::Method::Meta::wrap
11110µs10µsMoose::Meta::Method::Meta::::BEGIN@3Moose::Meta::Method::Meta::BEGIN@3
1117µs10µsMoose::Meta::Method::Meta::::BEGIN@10Moose::Meta::Method::Meta::BEGIN@10
1116µs11µsMoose::Meta::Method::Meta::::BEGIN@11Moose::Meta::Method::Meta::BEGIN@11
1116µs70µsMoose::Meta::Method::Meta::::BEGIN@13Moose::Meta::Method::Meta::BEGIN@13
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
1
2package Moose::Meta::Method::Meta;
3
# spent 10µs within Moose::Meta::Method::Meta::BEGIN@3 which was called: # once (10µs+0s) by Moose::Meta::Class::BEGIN@27 at line 5
BEGIN {
415µs $Moose::Meta::Method::Meta::AUTHORITY = 'cpan:STEVAN';
5129µs110µs}
# spent 10µs making 1 call to Moose::Meta::Method::Meta::BEGIN@3
6{
721µs $Moose::Meta::Method::Meta::VERSION = '2.1005';
8}
9
10221µs213µs
# spent 10µs (7+3) within Moose::Meta::Method::Meta::BEGIN@10 which was called: # once (7µs+3µs) by Moose::Meta::Class::BEGIN@27 at line 10
use strict;
# spent 10µs making 1 call to Moose::Meta::Method::Meta::BEGIN@10 # spent 3µs making 1 call to strict::import
11230µs216µs
# spent 11µs (6+5) within Moose::Meta::Method::Meta::BEGIN@11 which was called: # once (6µs+5µs) by Moose::Meta::Class::BEGIN@27 at line 11
use warnings;
# spent 11µs making 1 call to Moose::Meta::Method::Meta::BEGIN@11 # spent 5µs making 1 call to warnings::import
12
13164µs
# spent 70µs (6+64) within Moose::Meta::Method::Meta::BEGIN@13 which was called: # once (6µs+64µs) by Moose::Meta::Class::BEGIN@27 at line 14
use base 'Moose::Meta::Method',
# spent 64µs making 1 call to base::import
142122µs170µs 'Class::MOP::Method::Meta';
# spent 70µs making 1 call to Moose::Meta::Method::Meta::BEGIN@13
15
16sub _is_caller_mop_internal {
17 my $self = shift;
18 my ($caller) = @_;
19 return 1 if $caller =~ /^Moose(?:::|$)/;
20 return $self->SUPER::_is_caller_mop_internal($caller);
21}
22
23# XXX: ugh multiple inheritance
24
# spent 3.68ms (51µs+3.63) within Moose::Meta::Method::Meta::wrap which was called 12 times, avg 307µs/call: # 12 times (51µs+3.63ms) by Class::MOP::Mixin::HasMethods::_add_meta_method at line 33 of Class/MOP/Mixin/HasMethods.pm, avg 307µs/call
sub wrap {
252452µs my $class = shift;
26123.63ms return $class->Class::MOP::Method::Meta::wrap(@_);
# spent 3.63ms making 12 calls to Class::MOP::Method::Meta::wrap, avg 302µs/call
27}
28
29sub _make_compatible_with {
30 my $self = shift;
31 return $self->Class::MOP::Method::Meta::_make_compatible_with(@_);
32}
33
3413µs1;
35
36# ABSTRACT: A Moose Method metaclass for C<meta> methods
37
38__END__