← Index
NYTProf Performance Profile   « block view • line view • sub view »
For xt/tapper-mcp-scheduler-with-db-longrun.t
  Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:23:31 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Meta/Object/Trait.pm
StatementsExecuted 7 statements in 170µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11110µs10µsMoose::Meta::Object::Trait::::BEGIN@3Moose::Meta::Object::Trait::BEGIN@3
1117µs38µsMoose::Meta::Object::Trait::::BEGIN@10Moose::Meta::Object::Trait::BEGIN@10
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
1
2package Moose::Meta::Object::Trait;
3
# spent 10µs within Moose::Meta::Object::Trait::BEGIN@3 which was called: # once (10µs+0s) by Module::Runtime::require_module at line 5
BEGIN {
4115µs $Moose::Meta::Object::Trait::AUTHORITY = 'cpan:STEVAN';
5130µs110µs}
# spent 10µs making 1 call to Moose::Meta::Object::Trait::BEGIN@3
6{
721µs $Moose::Meta::Object::Trait::VERSION = '2.0602';
8}
9
103121µs270µs
# spent 38µs (7+31) within Moose::Meta::Object::Trait::BEGIN@10 which was called: # once (7µs+31µs) by Module::Runtime::require_module at line 10
use Scalar::Util qw(blessed);
# spent 38µs making 1 call to Moose::Meta::Object::Trait::BEGIN@10 # spent 31µs making 1 call to Exporter::import
11
12sub _get_compatible_metaclass {
13 my $orig = shift;
14 my $self = shift;
15 return $self->$orig(@_)
16 || $self->_get_compatible_metaclass_by_role_reconciliation(@_);
17}
18
19sub _get_compatible_metaclass_by_role_reconciliation {
20 my $self = shift;
21 my ($other_name) = @_;
22 my $meta_name = blessed($self) ? $self->_real_ref_name : $self;
23
24 return unless Moose::Util::_classes_differ_by_roles_only(
25 $meta_name, $other_name
26 );
27
28 return Moose::Util::_reconcile_roles_for_metaclass(
29 $meta_name, $other_name
30 );
31}
32
3313µs1;
34
35# ABSTRACT: Some overrides for L<Class::MOP::Object> functionality
36
- -
39=pod
40
41=head1 NAME
42
43Moose::Meta::Object::Trait - Some overrides for L<Class::MOP::Object> functionality
44
45=head1 VERSION
46
47version 2.0602
48
49=head1 DESCRIPTION
50
51This module is entirely private, you shouldn't ever need to interact with
52it directly.
53
54=head1 BUGS
55
56See L<Moose/BUGS> for details on reporting bugs.
57
58=head1 AUTHOR
59
60Moose is maintained by the Moose Cabal, along with the help of many contributors. See L<Moose/CABAL> and L<Moose/CONTRIBUTORS> for details.
61
62=head1 COPYRIGHT AND LICENSE
63
64This software is copyright (c) 2012 by Infinity Interactive, Inc..
65
66This is free software; you can redistribute it and/or modify it under
67the same terms as the Perl 5 programming language system itself.
68
69=cut
70
71
72__END__