← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/pan_genome_post_analysis
  Run on Fri Mar 27 11:43:32 2015
Reported on Fri Mar 27 11:45:36 2015

Filename/Users/ap13/perl5/lib/perl5/darwin-2level/Moose/Meta/Object/Trait.pm
StatementsExecuted 4 statements in 213µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11121µs59µ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;
211µsour $VERSION = '2.1403';
3
42207µs298µs
# spent 59µs (21+38) within Moose::Meta::Object::Trait::BEGIN@4 which was called: # once (21µs+38µs) by Module::Runtime::require_module at line 4
use Scalar::Util qw(blessed);
# spent 59µs making 1 call to Moose::Meta::Object::Trait::BEGIN@4 # spent 38µ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
2715µs1;
28
29# ABSTRACT: Some overrides for L<Class::MOP::Object> functionality
30
31__END__