← 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/Object/Trait.pm
StatementsExecuted 4 statements in 84µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1118µs25µ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;
21300nsour $VERSION = '2.1605';
3
4282µs241µs
# spent 25µs (8+16) within Moose::Meta::Object::Trait::BEGIN@4 which was called: # once (8µs+16µs) by Module::Runtime::require_module at line 4
use Scalar::Util qw(blessed);
# spent 25µs making 1 call to Moose::Meta::Object::Trait::BEGIN@4 # spent 16µ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__