← Index
NYTProf Performance Profile   « line view »
For script/ponapi
  Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:10 2016

Filename/usr/local/lib/perl/5.18.2/Moose/Meta/Object/Trait.pm
StatementsExecuted 4 statements in 124µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11111µs42µsMoose::Meta::Object::Trait::::BEGIN@4Moose::Meta::Object::Trait::BEGIN@4
0000s0sMoose::Meta::Object::Trait::::_get_compatible_metaclassMoose::Meta::Object::Trait::_get_compatible_metaclass
0000s0sMoose::Meta::Object::Trait::::_get_compatible_metaclass_by_role_reconciliationMoose::Meta::Object::Trait::_get_compatible_metaclass_by_role_reconciliation
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::Object::Trait;
21500nsour $VERSION = '2.1604';
3
42121µs273µs
# spent 42µs (11+31) within Moose::Meta::Object::Trait::BEGIN@4 which was called: # once (11µs+31µs) by Module::Runtime::require_module at line 4
use Scalar::Util qw(blessed);
# spent 42µs making 1 call to Moose::Meta::Object::Trait::BEGIN@4 # spent 31µs making 1 call to Exporter::import
5
6sub _get_compatible_metaclass {
7 my $orig = shift;
8 my $self = shift;
9 return $self->$orig(@_)
10 || $self->_get_compatible_metaclass_by_role_reconciliation(@_);
11}
12
13sub _get_compatible_metaclass_by_role_reconciliation {
14 my $self = shift;
15 my ($other_name) = @_;
16 my $meta_name = blessed($self) ? $self->_real_ref_name : $self;
17
18 return unless Moose::Util::_classes_differ_by_roles_only(
19 $meta_name, $other_name
20 );
21
22 return Moose::Util::_reconcile_roles_for_metaclass(
23 $meta_name, $other_name
24 );
25}
26
2712µs1;
28
29# ABSTRACT: Some overrides for L<Class::MOP::Object> functionality
30
31__END__