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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	77µs	96µs	Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@3
1	1	1	77µs	148µs	Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@4
1	1	1	48µs	787µs	Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@51
1	1	1	43µs	14.9ms	Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@10
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::shift::_adds_members
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::shift::_inline_capture_return_value
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::shift::_inline_optimized_set_new_value
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::shift::_maximum_arguments
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::shift::_potential_value
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::shift::_return_value

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::shift;
2
3	3	107µs	2	115µs	# spent 96µs (77+19) within Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@3 which was called: # once (77µs+19µs) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@26 at line 3 use strict; # spent 96µs making 1 call to Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@3 # spent 19µs making 1 call to strict::import
4	3	294µs	2	219µs	# spent 148µs (77+71) within Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@4 which was called: # once (77µs+71µs) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@26 at line 4 use warnings; # spent 148µs making 1 call to Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@4 # spent 71µs making 1 call to warnings::import
5
6	1	4µs			our $VERSION = '1.19';
7	1	81µs			$VERSION = eval $VERSION; # spent 11µs executing statements in string eval
8	1	4µs			our $AUTHORITY = 'cpan:STEVAN';
9
10	3	744µs	2	29.8ms	# spent 14.9ms (43µs+14.9) within Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@10 which was called: # once (43µs+14.9ms) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@26 at line 10 use Moose::Role; # spent 14.9ms making 1 call to Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@10 # spent 14.9ms making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:456]
11
12	1	35µs	1	45.4ms	with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => { # spent 45.4ms making 1 call to Moose::Role::with
13					-excludes => [
14					qw(
15					_maximum_arguments
16					_inline_capture_return_value
17					_inline_optimized_set_new_value
18					_return_value
19					)
20					]
21					};
22
23					sub _maximum_arguments { 0 }
24
25					sub _adds_members { 0 }
26
27					sub _potential_value {
28					my ( $self, $slot_access ) = @_;
29
30					return "[ \@{ ($slot_access) } > 1 ? \@{ ($slot_access) }[ 1 .. \$#{ ($slot_access) } ] : () ]";
31					}
32
33					sub _inline_capture_return_value {
34					my ( $self, $slot_access ) = @_;
35
36					return "my \$old = ${slot_access}->[0];";
37					}
38
39					sub _inline_optimized_set_new_value {
40					my ( $self, $inv, $new, $slot_access ) = @_;
41
42					return "shift \@{ ($slot_access) };";
43					}
44
45					sub _return_value {
46					my ( $self, $slot_access ) = @_;
47
48					return 'return $old';
49					}
50
51	3	115µs	2	1.53ms	# spent 787µs (48+739) within Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@51 which was called: # once (48µs+739µs) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@26 at line 51 no Moose::Role; # spent 787µs making 1 call to Moose::Meta::Method::Accessor::Native::Array::shift::BEGIN@51 # spent 739µs making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:557]
52
53	1	47µs			1;