← 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:22:47 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Meta/Method/Meta.pm
StatementsExecuted 39 statements in 305µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1311113µs6.61msMoose::Meta::Method::Meta::::wrapMoose::Meta::Method::Meta::wrap
11111µs13µsMoose::Meta::Method::Meta::::BEGIN@10Moose::Meta::Method::Meta::BEGIN@10
1118µs8µsMoose::Meta::Method::Meta::::BEGIN@3Moose::Meta::Method::Meta::BEGIN@3
1118µs16µsMoose::Meta::Method::Meta::::BEGIN@11Moose::Meta::Method::Meta::BEGIN@11
1117µs103µsMoose::Meta::Method::Meta::::BEGIN@13Moose::Meta::Method::Meta::BEGIN@13
0000s0sMoose::Meta::Method::Meta::::_is_caller_mop_internalMoose::Meta::Method::Meta::_is_caller_mop_internal
0000s0sMoose::Meta::Method::Meta::::_make_compatible_withMoose::Meta::Method::Meta::_make_compatible_with
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::Method::Meta;
3
# spent 8µs within Moose::Meta::Method::Meta::BEGIN@3 which was called: # once (8µs+0s) by Moose::Meta::Class::BEGIN@27 at line 5
BEGIN {
415µs $Moose::Meta::Method::Meta::AUTHORITY = 'cpan:STEVAN';
5121µs18µs}
# spent 8µs making 1 call to Moose::Meta::Method::Meta::BEGIN@3
6{
721µs $Moose::Meta::Method::Meta::VERSION = '2.0602';
8}
9
10317µs216µs
# spent 13µs (11+3) within Moose::Meta::Method::Meta::BEGIN@10 which was called: # once (11µs+3µs) by Moose::Meta::Class::BEGIN@27 at line 10
use strict;
# spent 13µs making 1 call to Moose::Meta::Method::Meta::BEGIN@10 # spent 3µs making 1 call to strict::import
11322µs225µs
# spent 16µs (8+8) within Moose::Meta::Method::Meta::BEGIN@11 which was called: # once (8µs+8µs) by Moose::Meta::Class::BEGIN@27 at line 11
use warnings;
# spent 16µs making 1 call to Moose::Meta::Method::Meta::BEGIN@11 # spent 8µs making 1 call to warnings::import
12
13196µs
# spent 103µs (7+96) within Moose::Meta::Method::Meta::BEGIN@13 which was called: # once (7µs+96µs) by Moose::Meta::Class::BEGIN@27 at line 14
use base 'Moose::Meta::Method',
# spent 96µs making 1 call to base::import
143125µs1103µs 'Class::MOP::Method::Meta';
# spent 103µs making 1 call to Moose::Meta::Method::Meta::BEGIN@13
15
16sub _is_caller_mop_internal {
17 my $self = shift;
18 my ($caller) = @_;
19 return 1 if $caller =~ /^Moose(?:::|$)/;
20 return $self->SUPER::_is_caller_mop_internal($caller);
21}
22
23# XXX: ugh multiple inheritance
24
# spent 6.61ms (113µs+6.50) within Moose::Meta::Method::Meta::wrap which was called 13 times, avg 508µs/call: # 13 times (113µs+6.50ms) by Class::MOP::Mixin::HasMethods::_add_meta_method at line 33 of Class/MOP/Mixin/HasMethods.pm, avg 508µs/call
sub wrap {
2526113µs my $class = shift;
26136.50ms return $class->Class::MOP::Method::Meta::wrap(@_);
# spent 6.50ms making 13 calls to Class::MOP::Method::Meta::wrap, avg 500µs/call
27}
28
29sub _make_compatible_with {
30 my $self = shift;
31 return $self->Class::MOP::Method::Meta::_make_compatible_with(@_);
32}
33
3412µs1;
35
36# ABSTRACT: A Moose Method metaclass for C<meta> methods
37
- -
40=pod
41
42=head1 NAME
43
44Moose::Meta::Method::Meta - A Moose Method metaclass for C<meta> methods
45
46=head1 VERSION
47
48version 2.0602
49
50=head1 DESCRIPTION
51
52This class is a subclass of L<Class::MOP::Method::Meta> that
53provides additional Moose-specific functionality, all of which is
54private.
55
56To understand this class, you should read the the
57L<Class::MOP::Method::Meta> documentation.
58
59=head1 BUGS
60
61See L<Moose/BUGS> for details on reporting bugs.
62
63=head1 AUTHOR
64
65Moose is maintained by the Moose Cabal, along with the help of many contributors. See L<Moose/CABAL> and L<Moose/CONTRIBUTORS> for details.
66
67=head1 COPYRIGHT AND LICENSE
68
69This software is copyright (c) 2012 by Infinity Interactive, Inc..
70
71This is free software; you can redistribute it and/or modify it under
72the same terms as the Perl 5 programming language system itself.
73
74=cut
75
76
77__END__