← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:10 2010

File /usr/local/lib/perl/5.10.0/Moose/Meta/Object/Trait.pm
Statements Executed 7
Total Time 0.0002517 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMoose::Meta::Object::Trait::::BEGINMoose::Meta::Object::Trait::BEGIN
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
LineStmts.Exclusive
Time
Avg.Code
1
2package Moose::Meta::Object::Trait;
3
43213µs71µsuse Scalar::Util qw(blessed);
# spent 58µs making 1 call to Exporter::import
5
61700ns700nsour $VERSION = '1.15';
7129µs29µs$VERSION = eval $VERSION;
81600ns600nsour $AUTHORITY = 'cpan:STEVAN';
9
10sub _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
17sub _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
3119µs9µs1;
32
33__END__
34
35=pod
36
37=head1 NAME
38
39Moose::Meta::Object::Trait - Some overrides for L<Class::MOP::Object> functionality
40
41=head1 DESCRIPTION
42
43This module is entirely private, you shouldn't ever need to interact with
44it directly.
45
46=head1 BUGS
47
48See L<Moose/BUGS> for details on reporting bugs.
49
50=head1 AUTHOR
51
52Jesse Luehrs E<lt>doy at tozt dot netE<gt>
53
54=head1 COPYRIGHT AND LICENSE
55
56Copyright 2010 by Infinity Interactive, Inc.
57
58L<http://www.iinteractive.com>
59
60This library is free software; you can redistribute it and/or modify
61it under the same terms as Perl itself.
62
63=cut