Profile of Moose/Meta/Object/Trait.pm

Filename	/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Meta/Object/Trait.pm
Statements	Executed 7 statements in 683µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	76µs	252µs	Moose::Meta::Object::Trait::::BEGIN@4Moose::Meta::Object::Trait::BEGIN@4
0	0	0	0s	0s	Moose::Meta::Object::Trait::_get_compatible_metaclass
0	0	0	0s	0s	Moose::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
1
2					package Moose::Meta::Object::Trait;
3
4	3	605µs	2	429µs	# spent 252µs (76+176) within Moose::Meta::Object::Trait::BEGIN@4 which was called: # once (76µs+176µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 4 use Scalar::Util qw(blessed); # spent 252µs making 1 call to Moose::Meta::Object::Trait::BEGIN@4 # spent 176µs making 1 call to Exporter::import
5
6	1	5µs			our $VERSION = '1.19';
7	1	59µs			$VERSION = eval $VERSION; # spent 11µs executing statements in string eval
8	1	4µs			our $AUTHORITY = 'cpan:STEVAN';
9
10					sub _get_compatible_metaclass {
11					my $orig = shift;
12					my $self = shift;
13					return $self->$orig(@_)
14					\|\| $self->_get_compatible_metaclass_by_role_reconciliation(@_);
15					}
16
17					sub _get_compatible_metaclass_by_role_reconciliation {
18					my $self = shift;
19					my ($other_name) = @_;
20					my $meta_name = blessed($self) ? $self->_real_ref_name : $self;
21
22					return unless Moose::Util::_classes_differ_by_roles_only(
23					$meta_name, $other_name
24					);
25
26					return Moose::Util::_reconcile_roles_for_metaclass(
27					$meta_name, $other_name
28					);
29					}
30
31	1	11µs			1;
32
33					__END__