File | /usr/local/lib/perl/5.10.0/Moose/Meta/Method/Meta.pm |
Statements Executed | 29 |
Total Time | 0.0003917 seconds |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
8 | 1 | 1 | 71µs | 5.69ms | wrap | Moose::Meta::Method::Meta::
0 | 0 | 0 | 0s | 0s | BEGIN | Moose::Meta::Method::Meta::
0 | 0 | 0 | 0s | 0s | _is_caller_mop_internal | Moose::Meta::Method::Meta::
0 | 0 | 0 | 0s | 0s | _make_compatible_with | Moose::Meta::Method::Meta::
Line | Stmts. | Exclusive Time | Avg. | Code |
---|---|---|---|---|
1 | ||||
2 | package Moose::Meta::Method::Meta; | |||
3 | ||||
4 | 3 | 34µs | 11µs | use strict; # spent 10µs making 1 call to strict::import |
5 | 3 | 74µs | 25µs | use warnings; # spent 28µs making 1 call to warnings::import |
6 | ||||
7 | 1 | 800ns | 800ns | our $VERSION = '1.15'; |
8 | 1 | 26µs | 26µs | $VERSION = eval $VERSION; |
9 | 1 | 600ns | 600ns | our $AUTHORITY = 'cpan:STEVAN'; |
10 | ||||
11 | use base 'Moose::Meta::Method', # spent 153µs making 1 call to base::import | |||
12 | 3 | 181µs | 60µs | 'Class::MOP::Method::Meta'; |
13 | ||||
14 | sub _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 | |||
23 | 16 | 72µs | 4µ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 | ||||
27 | sub _make_compatible_with { | |||
28 | my $self = shift; | |||
29 | return $self->Class::MOP::Method::Meta::_make_compatible_with(@_); | |||
30 | } | |||
31 | ||||
32 | 1 | 4µs | 4µs | 1; |
33 | ||||
34 | __END__ | |||
35 | ||||
36 | =pod | |||
37 | ||||
38 | =head1 NAME | |||
39 | ||||
40 | Moose::Meta::Method::Meta - A Moose Method metaclass for C<meta> methods | |||
41 | ||||
42 | =head1 DESCRIPTION | |||
43 | ||||
44 | This class is a subclass of L<Class::MOP::Method::Meta> that | |||
45 | provides additional Moose-specific functionality, all of which is | |||
46 | private. | |||
47 | ||||
48 | To understand this class, you should read the the | |||
49 | L<Class::MOP::Method::Meta> documentation. | |||
50 | ||||
51 | =head1 BUGS | |||
52 | ||||
53 | See L<Moose/BUGS> for details on reporting bugs. | |||
54 | ||||
55 | =head1 AUTHOR | |||
56 | ||||
57 | Jesse Luehrs E<lt>doy at tozt dot net<gt> | |||
58 | ||||
59 | =head1 COPYRIGHT AND LICENSE | |||
60 | ||||
61 | Copyright 2006-2010 by Infinity Interactive, Inc. | |||
62 | ||||
63 | L<http://www.iinteractive.com> | |||
64 | ||||
65 | This library is free software; you can redistribute it and/or modify | |||
66 | it under the same terms as Perl itself. | |||
67 | ||||
68 | =cut |