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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	77µs	95µs	Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@3
1	1	1	49µs	830µs	Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@49
1	1	1	44µs	14.8ms	Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@10
1	1	1	40µs	109µs	Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@4
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::pop::_adds_members
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::pop::_inline_capture_return_value
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::pop::_inline_optimized_set_new_value
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::pop::_maximum_arguments
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::pop::_potential_value
0	0	0	0s	0s	Moose::Meta::Method::Accessor::Native::Array::pop::_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::pop;
2
3	3	104µs	2	113µs	# spent 95µs (77+18) within Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@3 which was called: # once (77µs+18µs) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@22 at line 3 use strict; # spent 95µs making 1 call to Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@3 # spent 18µs making 1 call to strict::import
4	3	243µs	2	179µs	# spent 109µs (40+69) within Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@4 which was called: # once (40µs+69µs) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@22 at line 4 use warnings; # spent 109µs making 1 call to Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@4 # spent 69µs making 1 call to warnings::import
5
6	1	4µs			our $VERSION = '1.19';
7	1	90µs			$VERSION = eval $VERSION; # spent 10µs executing statements in string eval
8	1	4µs			our $AUTHORITY = 'cpan:STEVAN';
9
10	3	805µs	2	29.6ms	# spent 14.8ms (44µs+14.8) within Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@10 which was called: # once (44µs+14.8ms) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@22 at line 10 use Moose::Role; # spent 14.8ms making 1 call to Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@10 # spent 14.8ms making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:456]
11
12	1	36µs	1	45.8ms	with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => { # spent 45.8ms making 1 call to Moose::Role::with
13					-excludes => [
14					qw( _maximum_arguments
15					_inline_capture_return_value
16					_inline_optimized_set_new_value
17					_return_value )
18					]
19					};
20
21					sub _maximum_arguments { 0 }
22
23					sub _adds_members { 0 }
24
25					sub _potential_value {
26					my ( $self, $slot_access ) = @_;
27
28					return "[ \@{ ($slot_access) } > 1 ? \@{ ($slot_access) }[ 0 .. \$#{ ($slot_access) } - 1 ] : () ]";
29					}
30
31					sub _inline_capture_return_value {
32					my ( $self, $slot_access ) = @_;
33
34					return "my \$old = ${slot_access}->[-1];";
35					}
36
37					sub _inline_optimized_set_new_value {
38					my ( $self, $inv, $new, $slot_access ) = @_;
39
40					return "pop \@{ ($slot_access) }";
41					}
42
43					sub _return_value {
44					my ( $self, $slot_access ) = @_;
45
46					return 'return $old;';
47					}
48
49	3	117µs	2	1.61ms	# spent 830µs (49+781) within Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@49 which was called: # once (49µs+781µs) by Moose::Meta::Attribute::Native::Trait::Array::BEGIN@22 at line 49 no Moose::Role; # spent 830µs making 1 call to Moose::Meta::Method::Accessor::Native::Array::pop::BEGIN@49 # spent 781µs making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:557]
50
51	1	48µs			1;