Profile of Moose/Meta/Method/Accessor/Native/Array/accessor.pm

Filename	/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Meta/Method/Accessor/Native/Array/accessor.pm
Statements	Executed 17 statements in 1.66ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	83µs	102µs	Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@3
1	1	1	48µs	888µs	Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@77
1	1	1	44µs	14.6ms	Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@10
1	1	1	41µs	110µs	Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@4
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::accessor::_generate_method
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::accessor::_maximum_arguments
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::accessor::_minimum_arguments

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Moose::Meta::Method::Accessor::Native::Array::accessor;
2
3	3	105µs	2	121µs	# spent 102µs (83+19) within Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@3 which was called: # once (83µs+19µs) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@9 at line 3 use strict; # spent 102µs making 1 call to Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@3 # spent 19µs making 1 call to strict::import
4	3	238µs	2	179µs	# spent 110µs (41+69) within Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@4 which was called: # once (41µs+69µs) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@9 at line 4 use warnings; # spent 110µs making 1 call to Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@4 # spent 69µs making 1 call to warnings::import
5
6	1	4µs			our $VERSION = '1.19';
7	1	84µs			$VERSION = eval $VERSION; # spent 11µs executing statements in string eval
8	1	4µs			our $AUTHORITY = 'cpan:STEVAN';
9
10	3	1000µs	2	29.2ms	# spent 14.6ms (44µs+14.6) within Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@10 which was called: # once (44µs+14.6ms) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@9 at line 10 use Moose::Role; # spent 14.6ms making 1 call to Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@10 # spent 14.6ms making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:456]
11
12	1	49µs	1	313ms	with 'Moose::Meta::Method::Accessor::Native::Array::set' => { # spent 313ms making 1 call to Moose::Role::with
13					-excludes => [
14					qw( _generate_method
15					_minimum_arguments
16					_maximum_arguments
17					_inline_process_arguments
18					_inline_check_arguments
19					_return_value)
20					]
21					},
22					'Moose::Meta::Method::Accessor::Native::Array::get' => {
23					-excludes => [
24					qw(
25					_generate_method
26					_minimum_arguments
27					_maximum_arguments
28					)
29					]
30					};
31
32					sub _generate_method {
33					my $self = shift;
34
35					my $inv = '$self';
36
37					my $code = 'sub {';
38					$code .= "\n" . $self->_inline_pre_body(@_);
39
40					$code .= "\n" . 'my $self = shift;';
41
42					$code .= "\n" . $self->_inline_curried_arguments;
43
44					$code .= "\n" . $self->_inline_check_lazy($inv);
45
46					my $slot_access = $self->_inline_get($inv);
47
48					# get
49					$code .= "\n" . 'if ( @_ == 1 ) {';
50
51					$code .= "\n" . $self->_inline_check_var_is_valid_index('$_[0]');
52
53					$code
54					.= "\n"
55					. 'return '
56					. $self
57					->Moose::Meta::Method::Accessor::Native::Array::get::_return_value(
58					$slot_access)
59					. ';';
60
61					# set
62					$code .= "\n" . '} else {';
63
64					$code .= "\n" . $self->_writer_core( $inv, $slot_access );
65
66					$code .= "\n" . $self->_inline_post_body(@_);
67
68					$code .= "\n}";
69					$code .= "\n}";
70
71					return $code;
72					}
73
74					sub _minimum_arguments {1}
75					sub _maximum_arguments {2}
76
77	3	122µs	2	1.73ms	# spent 888µs (48+840) within Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@77 which was called: # once (48µs+840µs) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@9 at line 77 no Moose::Role; # spent 888µs making 1 call to Moose::Meta::Method::Accessor::Native::Array::accessor::BEGIN@77 # spent 840µs making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:557]
78
79	1	50µs			1;