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

File /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Method.pm
Statements Executed 13
Total Time 0.0002182 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMoose::Meta::Role::Method::::BEGINMoose::Meta::Role::Method::BEGIN
0000s0sMoose::Meta::Role::Method::::_make_compatible_withMoose::Meta::Role::Method::_make_compatible_with
LineStmts.Exclusive
Time
Avg.Code
1
2package Moose::Meta::Role::Method;
3
4325µs8µsuse strict;
# spent 8µs making 1 call to strict::import
5365µs22µsuse warnings;
# spent 28µs making 1 call to warnings::import
6
71700ns700nsour $VERSION = '1.15';
8122µs22µs$VERSION = eval $VERSION;
91600ns600nsour $AUTHORITY = 'cpan:STEVAN';
10
113100µs33µsuse base 'Moose::Meta::Method';
# spent 74µs making 1 call to base::import
12
13sub _make_compatible_with {
14 my $self = shift;
15 my ($other) = @_;
16
17 # XXX: this is pretty gross. the issue here is blah blah blah
18 # see the comments in CMOP::Method::Meta and CMOP::Method::Wrapped
19 return $self unless $other->_is_compatible_with($self->_real_ref_name);
20
21 return $self->SUPER::_make_compatible_with(@_);
22}
23
2414µs4µs1;
25
26__END__
27
28=pod
29
30=head1 NAME
31
32Moose::Meta::Role::Method - A Moose Method metaclass for Roles
33
34=head1 DESCRIPTION
35
36This is primarily used to mark methods coming from a role
37as being different. Right now it is nothing but a subclass
38of L<Moose::Meta::Method>.
39
40=head1 BUGS
41
42See L<Moose/BUGS> for details on reporting bugs.
43
44=head1 AUTHOR
45
46Stevan Little E<lt>stevan@iinteractive.comE<gt>
47
48=head1 COPYRIGHT AND LICENSE
49
50Copyright 2006-2010 by Infinity Interactive, Inc.
51
52L<http://www.iinteractive.com>
53
54This library is free software; you can redistribute it and/or modify
55it under the same terms as Perl itself.
56
57=cut