← 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/Moo/HandleMoose/FakeMetaClass.pm
StatementsExecuted 3 statements in 134µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1117µs16µsMoo::HandleMoose::FakeMetaClass::::BEGIN@2Moo::HandleMoose::FakeMetaClass::BEGIN@2
0000s0sMoo::HandleMoose::FakeMetaClass::::AUTOLOADMoo::HandleMoose::FakeMetaClass::AUTOLOAD
0000s0sMoo::HandleMoose::FakeMetaClass::::DESTROYMoo::HandleMoose::FakeMetaClass::DESTROY
0000s0sMoo::HandleMoose::FakeMetaClass::::canMoo::HandleMoose::FakeMetaClass::can
0000s0sMoo::HandleMoose::FakeMetaClass::::isaMoo::HandleMoose::FakeMetaClass::isa
0000s0sMoo::HandleMoose::FakeMetaClass::::make_immutableMoo::HandleMoose::FakeMetaClass::make_immutable
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Moo::HandleMoose::FakeMetaClass;
22132µs224µs
# spent 16µs (7+8) within Moo::HandleMoose::FakeMetaClass::BEGIN@2 which was called: # once (7µs+8µs) by Moo::HandleMoose::inject_fake_metaclass_for at line 2
use Moo::_strictures;
# spent 16µs making 1 call to Moo::HandleMoose::FakeMetaClass::BEGIN@2 # spent 8µs making 1 call to Moo::_strictures::import
3
4sub DESTROY { }
5
6sub AUTOLOAD {
7 my ($meth) = (our $AUTOLOAD =~ /([^:]+)$/);
8 my $self = shift;
9 die "Can't call $meth without object instance"
10 if !ref $self;
11 die "Can't inflate Moose metaclass with Moo::sification disabled"
12 if $Moo::sification::disabled;
13 require Moo::HandleMoose;
14 Moo::HandleMoose::inject_real_metaclass_for($self->{name})->$meth(@_)
15}
16sub can {
17 my $self = shift;
18 return $self->SUPER::can(@_)
19 if !ref $self or $Moo::sification::disabled;
20 require Moo::HandleMoose;
21 Moo::HandleMoose::inject_real_metaclass_for($self->{name})->can(@_)
22}
23sub isa {
24 my $self = shift;
25 return $self->SUPER::isa(@_)
26 if !ref $self or $Moo::sification::disabled;
27 require Moo::HandleMoose;
28 Moo::HandleMoose::inject_real_metaclass_for($self->{name})->isa(@_)
29}
30sub make_immutable { $_[0] }
31
3212µs1;