Profile of Moose/Meta/Role/Method.pm

Filename	/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Meta/Role/Method.pm
Statements	Executed 13 statements in 663µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	75µs	93µs	Moose::Meta::Role::Method::::BEGIN@4Moose::Meta::Role::Method::BEGIN@4
1	1	1	39µs	317µs	Moose::Meta::Role::Method::::BEGIN@11Moose::Meta::Role::Method::BEGIN@11
1	1	1	38µs	108µs	Moose::Meta::Role::Method::::BEGIN@5Moose::Meta::Role::Method::BEGIN@5
0	0	0	0s	0s	Moose::Meta::Role::Method::_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
2					package Moose::Meta::Role::Method;
3
4	3	101µs	2	111µs	# spent 93µs (75+18) within Moose::Meta::Role::Method::BEGIN@4 which was called: # once (75µs+18µs) by Moose::Meta::Role::BEGIN@18 at line 4 use strict; # spent 93µs making 1 call to Moose::Meta::Role::Method::BEGIN@4 # spent 18µs making 1 call to strict::import
5	3	214µs	2	177µs	# spent 108µs (38+69) within Moose::Meta::Role::Method::BEGIN@5 which was called: # once (38µs+69µs) by Moose::Meta::Role::BEGIN@18 at line 5 use warnings; # spent 108µs making 1 call to Moose::Meta::Role::Method::BEGIN@5 # spent 69µs making 1 call to warnings::import
6
7	1	4µs			our $VERSION = '1.19';
8	1	61µs			$VERSION = eval $VERSION; # spent 11µs executing statements in string eval
9	1	3µs			our $AUTHORITY = 'cpan:STEVAN';
10
11	3	268µs	2	596µs	# spent 317µs (39+279) within Moose::Meta::Role::Method::BEGIN@11 which was called: # once (39µs+279µs) by Moose::Meta::Role::BEGIN@18 at line 11 use base 'Moose::Meta::Method'; # spent 317µs making 1 call to Moose::Meta::Role::Method::BEGIN@11 # spent 279µs making 1 call to base::import
12
13					sub _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
24	1	11µs			1;
25
26					__END__