← 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:08 2010

File /usr/local/lib/perl/5.10.0/Moose/Meta/Method/Meta.pm
Statements Executed 29
Total Time 0.0003917 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
81171µs5.69msMoose::Meta::Method::Meta::::wrapMoose::Meta::Method::Meta::wrap
0000s0sMoose::Meta::Method::Meta::::BEGINMoose::Meta::Method::Meta::BEGIN
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
LineStmts.Exclusive
Time
Avg.Code
1
2package Moose::Meta::Method::Meta;
3
4334µs11µsuse strict;
# spent 10µs making 1 call to strict::import
5374µs25µsuse warnings;
# spent 28µs making 1 call to warnings::import
6
71800ns800nsour $VERSION = '1.15';
8126µs26µs$VERSION = eval $VERSION;
91600ns600nsour $AUTHORITY = 'cpan:STEVAN';
10
11use base 'Moose::Meta::Method',
# spent 153µs making 1 call to base::import
123181µs60µs 'Class::MOP::Method::Meta';
13
14sub _is_caller_mop_internal {
15 my $self = shift;
16 my ($caller) = @_;
17 return 1 if $caller =~ /^Moose(?:::|$)/;
18 return $self->SUPER::_is_caller_mop_internal($caller);
19}
20
21# XXX: ugh multiple inheritance
22
# spent 5.69ms (71µs+5.61) within Moose::Meta::Method::Meta::wrap which was called 8 times, avg 711µs/call: # 8 times (71µs+5.61ms) by Class::MOP::Mixin::HasMethods::_add_meta_method at line 30 of /usr/local/lib/perl/5.10.0/Class/MOP/Mixin/HasMethods.pm, avg 711µs/call
sub wrap {
231672µs4µs my $class = shift;
24 return $class->Class::MOP::Method::Meta::wrap(@_);
# spent 5.61ms making 8 calls to Class::MOP::Method::Meta::wrap, avg 702µs/call
25}
26
27sub _make_compatible_with {
28 my $self = shift;
29 return $self->Class::MOP::Method::Meta::_make_compatible_with(@_);
30}
31
3214µs4µs1;
33
34__END__
35
36=pod
37
38=head1 NAME
39
40Moose::Meta::Method::Meta - A Moose Method metaclass for C<meta> methods
41
42=head1 DESCRIPTION
43
44This class is a subclass of L<Class::MOP::Method::Meta> that
45provides additional Moose-specific functionality, all of which is
46private.
47
48To understand this class, you should read the the
49L<Class::MOP::Method::Meta> documentation.
50
51=head1 BUGS
52
53See L<Moose/BUGS> for details on reporting bugs.
54
55=head1 AUTHOR
56
57Jesse Luehrs E<lt>doy at tozt dot net<gt>
58
59=head1 COPYRIGHT AND LICENSE
60
61Copyright 2006-2010 by Infinity Interactive, Inc.
62
63L<http://www.iinteractive.com>
64
65This library is free software; you can redistribute it and/or modify
66it under the same terms as Perl itself.
67
68=cut