Profile of Moose/Meta/Method/Accessor/Native/Hash/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/Hash/accessor.pm
Statements	Executed 17 statements in 1.86ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	77µs	96µs	Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@3
1	1	1	47µs	806µs	Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@80
1	1	1	44µs	17.9ms	Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@10
1	1	1	40µs	109µs	Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@4
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Hash::accessor::_generate_method
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Hash::accessor::_maximum_arguments
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Hash::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::Hash::accessor;
2
3	3	99µs	2	116µs	# spent 96µs (77+19) within Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@3 which was called: # once (77µs+19µs) by Moose::Meta::Attribute::Native::Trait::Hash::BEGIN@9 at line 3 use strict; # spent 96µs making 1 call to Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@3 # spent 19µs making 1 call to strict::import
4	3	232µs	2	178µs	# spent 109µs (40+69) within Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@4 which was called: # once (40µs+69µs) by Moose::Meta::Attribute::Native::Trait::Hash::BEGIN@9 at line 4 use warnings; # spent 109µs making 1 call to Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@4 # spent 69µs making 1 call to warnings::import
5
6	1	4µs			our $VERSION = '1.19';
7	1	92µs			$VERSION = eval $VERSION; # spent 11µs executing statements in string eval
8	1	4µs			our $AUTHORITY = 'cpan:STEVAN';
9
10	3	1.21ms	2	35.8ms	# spent 17.9ms (44µs+17.9) within Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@10 which was called: # once (44µs+17.9ms) by Moose::Meta::Attribute::Native::Trait::Hash::BEGIN@9 at line 10 use Moose::Role; # spent 17.9ms making 1 call to Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@10 # spent 17.9ms making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:456]
11
12	1	49µs	1	420ms	with 'Moose::Meta::Method::Accessor::Native::Hash::set' => { # spent 420ms making 1 call to Moose::Role::with
13					-excludes => [
14					qw(
15					_generate_method
16					_minimum_arguments
17					_maximum_arguments
18					_inline_check_arguments
19					_return_value
20					)
21					]
22					},
23					'Moose::Meta::Method::Accessor::Native::Hash::get' => {
24					-excludes => [
25					qw(
26					_generate_method
27					_minimum_arguments
28					_maximum_arguments
29					_inline_check_argument_count
30					_inline_process_arguments
31					)
32					]
33					};
34
35					sub _generate_method {
36					my $self = shift;
37
38					my $inv = '$self';
39
40					my $code = 'sub {';
41					$code .= "\n" . $self->_inline_pre_body(@_);
42
43					$code .= "\n" . 'my $self = shift;';
44
45					$code .= "\n" . $self->_inline_curried_arguments;
46
47					$code .= "\n" . $self->_inline_check_lazy($inv);
48
49					my $slot_access = $self->_inline_get($inv);
50
51					# get
52					$code .= "\n" . 'if ( @_ == 1 ) {';
53
54					$code .= "\n" . $self->_inline_check_var_is_valid_key('$_[0]');
55
56					$code
57					.= "\n"
58					. 'return '
59					. $self
60					->Moose::Meta::Method::Accessor::Native::Hash::get::_return_value(
61					$slot_access)
62					. ';';
63
64					# set
65					$code .= "\n" . '} else {';
66
67					$code .= "\n" . $self->_writer_core( $inv, $slot_access );
68
69					$code .= "\n" . $self->_inline_post_body(@_);
70
71					$code .= "\n}";
72					$code .= "\n}";
73
74					return $code;
75					}
76
77					sub _minimum_arguments {1}
78					sub _maximum_arguments {2}
79
80	3	117µs	2	1.56ms	# spent 806µs (47+758) within Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@80 which was called: # once (47µs+758µs) by Moose::Meta::Attribute::Native::Trait::Hash::BEGIN@9 at line 80 no Moose::Role; # spent 806µs making 1 call to Moose::Meta::Method::Accessor::Native::Hash::accessor::BEGIN@80 # spent 758µs making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:557]
81
82	1	49µs			1;