| 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 | Moose::Meta::Method::Meta::wrap |
| 0 | 0 | 0 | 0s | 0s | Moose::Meta::Method::Meta::BEGIN |
| 0 | 0 | 0 | 0s | 0s | Moose::Meta::Method::Meta::_is_caller_mop_internal |
| 0 | 0 | 0 | 0s | 0s | Moose::Meta::Method::Meta::_make_compatible_with |
| 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 |