Profile of Class/MOP/Method/Accessor.pm

Filename	/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP/Method/Accessor.pm
Statements	Executed 6182 statements in 91.7ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
270	2	2	31.3ms	483ms	Class::MOP::Method::Accessor::::newClass::MOP::Method::Accessor::new
256	1	1	15.5ms	335ms	Class::MOP::Method::Accessor::_initialize_body
224	2	2	12.0ms	12.0ms	Class::MOP::Method::Accessor::::_newClass::MOP::Method::Accessor::_new
52	1	1	3.62ms	38.0ms	Class::MOP::Method::Accessor::_generate_reader_method_inline
53	1	1	1.82ms	2.26ms	Class::MOP::Method::Accessor::_generate_reader_method
20	2	2	1.40ms	9.49ms	Class::MOP::Method::Accessor::_generate_predicate_method_inline
15	1	1	1.28ms	16.3ms	Class::MOP::Method::Accessor::_generate_accessor_method_inline
15	1	1	513µs	651µs	Class::MOP::Method::Accessor::_generate_accessor_method
13	1	1	426µs	543µs	Class::MOP::Method::Accessor::_generate_predicate_method
3	1	1	227µs	1.44ms	Class::MOP::Method::Accessor::_generate_writer_method_inline
3	1	1	93µs	117µs	Class::MOP::Method::Accessor::_generate_writer_method
1	1	1	70µs	89µs	Class::MOP::Method::Accessor::::BEGIN@4Class::MOP::Method::Accessor::BEGIN@4
1	1	1	62µs	3.76ms	Class::MOP::Method::Accessor::BEGIN@14
1	1	1	39µs	107µs	Class::MOP::Method::Accessor::::BEGIN@5Class::MOP::Method::Accessor::BEGIN@5
1	1	1	38µs	201µs	Class::MOP::Method::Accessor::::BEGIN@8Class::MOP::Method::Accessor::BEGIN@8
1	1	1	37µs	271µs	Class::MOP::Method::Accessor::::BEGIN@7Class::MOP::Method::Accessor::BEGIN@7
0	0	0	0s	0s	Class::MOP::Method::Accessor::__ANON__[:105]
0	0	0	0s	0s	Class::MOP::Method::Accessor::__ANON__[:113]
0	0	0	0s	0s	Class::MOP::Method::Accessor::__ANON__[:120]
0	0	0	0s	0s	Class::MOP::Method::Accessor::__ANON__[:127]
0	0	0	0s	0s	Class::MOP::Method::Accessor::__ANON__[:97]
0	0	0	0s	0s	Class::MOP::Method::Accessor::_generate_clearer_method
0	0	0	0s	0s	Class::MOP::Method::Accessor::_generate_clearer_method_inline

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 Class::MOP::Method::Accessor;
3
4	3	101µs	2	108µs	# spent 89µs (70+19) within Class::MOP::Method::Accessor::BEGIN@4 which was called: # once (70µs+19µs) by Class::MOP::Class::BEGIN@9 at line 4 use strict; # spent 89µs making 1 call to Class::MOP::Method::Accessor::BEGIN@4 # spent 19µs making 1 call to strict::import
5	3	103µs	2	176µs	# spent 107µs (39+69) within Class::MOP::Method::Accessor::BEGIN@5 which was called: # once (39µs+69µs) by Class::MOP::Class::BEGIN@9 at line 5 use warnings; # spent 107µs making 1 call to Class::MOP::Method::Accessor::BEGIN@5 # spent 69µs making 1 call to warnings::import
6
7	3	119µs	2	504µs	# spent 271µs (37+233) within Class::MOP::Method::Accessor::BEGIN@7 which was called: # once (37µs+233µs) by Class::MOP::Class::BEGIN@9 at line 7 use Carp 'confess'; # spent 271µs making 1 call to Class::MOP::Method::Accessor::BEGIN@7 # spent 233µs making 1 call to Exporter::import
8	3	234µs	2	364µs	# spent 201µs (38+163) within Class::MOP::Method::Accessor::BEGIN@8 which was called: # once (38µs+163µs) by Class::MOP::Class::BEGIN@9 at line 8 use Scalar::Util 'blessed', 'weaken'; # spent 201µs making 1 call to Class::MOP::Method::Accessor::BEGIN@8 # spent 163µs making 1 call to Exporter::import
9
10	1	5µs			our $VERSION = '1.11';
11	1	65µs			$VERSION = eval $VERSION; # spent 12µs executing statements in string eval
12	1	4µs			our $AUTHORITY = 'cpan:STEVAN';
13
14	3	3.18ms	2	3.76ms	# spent 3.76ms (62µs+3.70) within Class::MOP::Method::Accessor::BEGIN@14 which was called: # once (62µs+3.70ms) by Class::MOP::Class::BEGIN@9 at line 14 use base 'Class::MOP::Method::Generated'; # spent 3.76ms making 1 call to Class::MOP::Method::Accessor::BEGIN@14 # spent 3.70ms making 1 call to base::import, recursion: max depth 1, sum of overlapping time 3.70ms
15
16					# spent 483ms (31.3+452) within Class::MOP::Method::Accessor::new which was called 270 times, avg 1.79ms/call: # 256 times (29.6ms+366ms) by Class::MOP::Attribute::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP/Attribute.pm:342] at line 334 of Class/MOP/Attribute.pm, avg 1.55ms/call # 14 times (1.70ms+86.0ms) by Class::MOP::Class:::around at line 32 of Moose/Meta/Method/Accessor/Native.pm, avg 6.26ms/call sub new {
17	270	1.23ms			my $class = shift;
18	270	3.87ms			my %options = @_;
19
20	270	994µs			(exists $options{attribute})
21					\|\| confess "You must supply an attribute to construct with";
22
23	270	880µs			(exists $options{accessor_type})
24					\|\| confess "You must supply an accessor_type to construct with";
25
26	270	10.5ms	540	3.79ms	(blessed($options{attribute}) && $options{attribute}->isa('Class::MOP::Attribute')) # spent 1.94ms making 270 calls to Scalar::Util::blessed, avg 7µs/call # spent 1.85ms making 270 calls to UNIVERSAL::isa, avg 7µs/call
27					\|\| confess "You must supply an attribute which is a 'Class::MOP::Attribute' instance";
28
29	270	1.01ms			($options{package_name} && $options{name})
30					\|\| confess "You must supply the package_name and name parameters $Class::MOP::Method::UPGRADE_ERROR_TEXT";
31
32	270	3.81ms	270	38.2ms	my $self = $class->_new(\%options); # spent 9.13ms making 167 calls to Class::MOP::Method::Accessor::_new, avg 55µs/call # spent 9.12ms making 2 calls to Class::MOP::Method::_new, avg 4.56ms/call # spent 7.19ms making 87 calls to Moose::Meta::Method::Accessor::_new, avg 83µs/call # spent 1.43ms making 1 call to Class::MOP::Class::__ANON__::SERIAL::12::_new # spent 1.14ms making 2 calls to Class::MOP::Class::__ANON__::SERIAL::6::_new, avg 569µs/call # spent 1.06ms making 2 calls to Class::MOP::Class::__ANON__::SERIAL::7::_new, avg 532µs/call # spent 1.05ms making 1 call to Class::MOP::Class::__ANON__::SERIAL::20::_new # spent 1.04ms making 1 call to Class::MOP::Class::__ANON__::SERIAL::17::_new # spent 1.02ms making 1 call to Class::MOP::Class::__ANON__::SERIAL::18::_new # spent 1.02ms making 1 call to Class::MOP::Class::__ANON__::SERIAL::10::_new # spent 1.01ms making 1 call to Class::MOP::Class::__ANON__::SERIAL::16::_new # spent 1.00ms making 1 call to Class::MOP::Class::__ANON__::SERIAL::21::_new # spent 1.00ms making 1 call to Class::MOP::Class::__ANON__::SERIAL::22::_new # spent 984µs making 1 call to Class::MOP::Class::__ANON__::SERIAL::13::_new # spent 982µs making 1 call to Class::MOP::Class::__ANON__::SERIAL::9::_new
33
34					# we don't want this creating
35					# a cycle in the code, if not
36					# needed
37	270	5.79ms	270	2.42ms	weaken($self->{'attribute'}); # spent 2.42ms making 270 calls to Scalar::Util::weaken, avg 9µs/call
38
39	270	3.60ms	270	408ms	$self->_initialize_body; # spent 335ms making 256 calls to Class::MOP::Method::Accessor::_initialize_body, avg 1.31ms/call # spent 72.9ms making 14 calls to Moose::Meta::Method::Accessor::Native::_initialize_body, avg 5.21ms/call
40
41	270	4.82ms			return $self;
42					}
43
44					# spent 12.0ms within Class::MOP::Method::Accessor::_new which was called 224 times, avg 53µs/call: # 167 times (9.13ms+0s) by Class::MOP::Method::Accessor::new at line 32, avg 55µs/call # 57 times (2.84ms+0s) by Class::MOP::Method::wrap at line 44 of Class/MOP/Method.pm, avg 50µs/call sub _new {
45	224	845µs			my $class = shift;
46
47	224	602µs			return Class::MOP::Class->initialize($class)->new_object(@_)
48					if $class ne __PACKAGE__;
49
50	224	858µs			my $params = @_ == 1 ? $_[0] : {@_};
51
52	224	10.5ms			return bless {
53					# inherited from Class::MOP::Method
54					body => $params->{body},
55					associated_metaclass => $params->{associated_metaclass},
56					package_name => $params->{package_name},
57					name => $params->{name},
58					original_method => $params->{original_method},
59
60					# inherit from Class::MOP::Generated
61					is_inline => $params->{is_inline} \|\| 0,
62					definition_context => $params->{definition_context},
63
64					# defined in this class
65					attribute => $params->{attribute},
66					accessor_type => $params->{accessor_type},
67					} => $class;
68					}
69
70					## accessors
71
72	907	12.9ms			sub associated_attribute { (shift)->{'attribute'} }
73	256	3.54ms			sub accessor_type { (shift)->{'accessor_type'} }
74
75					## factory
76
77					# spent 335ms (15.5+319) within Class::MOP::Method::Accessor::_initialize_body which was called 256 times, avg 1.31ms/call: # 256 times (15.5ms+319ms) by Class::MOP::Method::Accessor::new at line 39, avg 1.31ms/call sub _initialize_body {
78	256	708µs			my $self = shift;
79
80	256	6.35ms	512	5.20ms	my $method_name = join "_" => ( # spent 2.71ms making 256 calls to Class::MOP::Method::Generated::is_inline, avg 11µs/call # spent 2.49ms making 256 calls to Class::MOP::Method::Accessor::accessor_type, avg 10µs/call
81					'_generate',
82					$self->accessor_type,
83					'method',
84					($self->is_inline ? 'inline' : ())
85					);
86
87	256	6.67ms	256	314ms	$self->{'body'} = $self->$method_name(); # spent 181ms making 64 calls to Moose::Meta::Method::Accessor::_generate_reader_method, avg 2.82ms/call # spent 40.6ms making 8 calls to Moose::Meta::Method::Accessor::_generate_accessor_method, avg 5.07ms/call # spent 38.0ms making 52 calls to Class::MOP::Method::Accessor::_generate_reader_method_inline, avg 731µs/call # spent 21.2ms making 9 calls to Moose::Meta::Method::Accessor::_generate_writer_method, avg 2.35ms/call # spent 16.3ms making 15 calls to Class::MOP::Method::Accessor::_generate_accessor_method_inline, avg 1.08ms/call # spent 6.18ms making 13 calls to Class::MOP::Method::Accessor::_generate_predicate_method_inline, avg 475µs/call # spent 4.38ms making 7 calls to Moose::Meta::Method::Accessor::_generate_predicate_method, avg 626µs/call # spent 2.26ms making 53 calls to Class::MOP::Method::Accessor::_generate_reader_method, avg 43µs/call # spent 1.85ms making 1 call to Moose::Meta::Method::Accessor::_generate_reader_method_inline # spent 1.44ms making 3 calls to Class::MOP::Method::Accessor::_generate_writer_method_inline, avg 480µs/call # spent 651µs making 15 calls to Class::MOP::Method::Accessor::_generate_accessor_method, avg 43µs/call # spent 543µs making 13 calls to Class::MOP::Method::Accessor::_generate_predicate_method, avg 42µs/call # spent 117µs making 3 calls to Class::MOP::Method::Accessor::_generate_writer_method, avg 39µs/call
88					}
89
90					## generators
91
92					# spent 651µs (513+137) within Class::MOP::Method::Accessor::_generate_accessor_method which was called 15 times, avg 43µs/call: # 15 times (513µs+137µs) by Class::MOP::Method::Accessor::_initialize_body at line 87, avg 43µs/call sub _generate_accessor_method {
93	15	173µs	15	137µs	my $attr = (shift)->associated_attribute; # spent 137µs making 15 calls to Class::MOP::Method::Accessor::associated_attribute, avg 9µs/call
94					return sub {
95					$attr->set_value($_[0], $_[1]) if scalar(@_) == 2;
96					$attr->get_value($_[0]);
97	15	303µs			};
98					}
99
100					# spent 2.26ms (1.82+447µs) within Class::MOP::Method::Accessor::_generate_reader_method which was called 53 times, avg 43µs/call: # 53 times (1.82ms+447µs) by Class::MOP::Method::Accessor::_initialize_body at line 87, avg 43µs/call sub _generate_reader_method {
101	53	574µs	53	447µs	my $attr = (shift)->associated_attribute; # spent 447µs making 53 calls to Class::MOP::Method::Accessor::associated_attribute, avg 8µs/call
102					return sub {
103	8	25µs			confess "Cannot assign a value to a read-only accessor" if @_ > 1;
104	8	175µs	8	1.37ms	$attr->get_value($_[0]); # spent 1.37ms making 8 calls to Class::MOP::Attribute::get_value, avg 171µs/call
105	53	1.17ms			};
106					}
107
108
109					# spent 117µs (93+24) within Class::MOP::Method::Accessor::_generate_writer_method which was called 3 times, avg 39µs/call: # 3 times (93µs+24µs) by Class::MOP::Method::Accessor::_initialize_body at line 87, avg 39µs/call sub _generate_writer_method {
110	3	33µs	3	24µs	my $attr = (shift)->associated_attribute; # spent 24µs making 3 calls to Class::MOP::Method::Accessor::associated_attribute, avg 8µs/call
111					return sub {
112					$attr->set_value($_[0], $_[1]);
113	3	53µs			};
114					}
115
116					# spent 543µs (426+117) within Class::MOP::Method::Accessor::_generate_predicate_method which was called 13 times, avg 42µs/call: # 13 times (426µs+117µs) by Class::MOP::Method::Accessor::_initialize_body at line 87, avg 42µs/call sub _generate_predicate_method {
117	13	152µs	13	117µs	my $attr = (shift)->associated_attribute; # spent 117µs making 13 calls to Class::MOP::Method::Accessor::associated_attribute, avg 9µs/call
118					return sub {
119	2	54µs	2	452µs	$attr->has_value($_[0]) # spent 452µs making 2 calls to Class::MOP::Attribute::has_value, avg 226µs/call
120	13	246µs			};
121					}
122
123					sub _generate_clearer_method {
124					my $attr = (shift)->associated_attribute;
125					return sub {
126					$attr->clear_value($_[0])
127					};
128					}
129
130					## Inline methods
131
132					# spent 16.3ms (1.28+15.0) within Class::MOP::Method::Accessor::_generate_accessor_method_inline which was called 15 times, avg 1.08ms/call: # 15 times (1.28ms+15.0ms) by Class::MOP::Method::Accessor::_initialize_body at line 87, avg 1.08ms/call sub _generate_accessor_method_inline {
133	15	46µs			my $self = shift;
134	15	145µs	15	128µs	my $attr = $self->associated_attribute; # spent 128µs making 15 calls to Class::MOP::Method::Accessor::associated_attribute, avg 9µs/call
135
136	15	614µs	45	14.8ms	my ( $code, $e ) = $self->_eval_closure( # spent 8.23ms making 15 calls to Class::MOP::Attribute::inline_set, avg 548µs/call # spent 4.85ms making 15 calls to Class::MOP::Method::Generated::_eval_closure, avg 323µs/call # spent 1.78ms making 15 calls to Class::MOP::Attribute::inline_get, avg 118µs/call
137					{},
138					'sub {'
139					. $attr->inline_set( '$_[0]', '$_[1]' )
140					. ' if scalar(@_) == 2; '
141					. $attr->inline_get('$_[0]') . '}'
142					);
143	15	30µs			confess "Could not generate inline accessor because : $e" if $e;
144
145	15	216µs			return $code;
146					}
147
148					# spent 38.0ms (3.62+34.4) within Class::MOP::Method::Accessor::_generate_reader_method_inline which was called 52 times, avg 731µs/call: # 52 times (3.62ms+34.4ms) by Class::MOP::Method::Accessor::_initialize_body at line 87, avg 731µs/call sub _generate_reader_method_inline {
149	52	142µs			my $self = shift;
150	52	537µs	52	436µs	my $attr = $self->associated_attribute; # spent 436µs making 52 calls to Class::MOP::Method::Accessor::associated_attribute, avg 8µs/call
151
152	52	1.46ms	104	34.0ms	my ( $code, $e ) = $self->_eval_closure( # spent 18.0ms making 52 calls to Class::MOP::Attribute::inline_get, avg 346µs/call # spent 16.0ms making 52 calls to Class::MOP::Method::Generated::_eval_closure, avg 308µs/call
153					{},
154					'sub {'
155					. 'confess "Cannot assign a value to a read-only accessor" if @_ > 1;'
156					. $attr->inline_get('$_[0]') . '}'
157					);
158	52	97µs			confess "Could not generate inline reader because : $e" if $e;
159
160	52	691µs			return $code;
161					}
162
163					# spent 1.44ms (227µs+1.21) within Class::MOP::Method::Accessor::_generate_writer_method_inline which was called 3 times, avg 480µs/call: # 3 times (227µs+1.21ms) by Class::MOP::Method::Accessor::_initialize_body at line 87, avg 480µs/call sub _generate_writer_method_inline {
164	3	8µs			my $self = shift;
165	3	29µs	3	24µs	my $attr = $self->associated_attribute; # spent 24µs making 3 calls to Class::MOP::Method::Accessor::associated_attribute, avg 8µs/call
166
167	3	85µs	6	1.19ms	my ( $code, $e ) = $self->_eval_closure( # spent 793µs making 3 calls to Class::MOP::Method::Generated::_eval_closure, avg 264µs/call # spent 395µs making 3 calls to Class::MOP::Attribute::inline_set, avg 132µs/call
168					{},
169					'sub {' . $attr->inline_set( '$_[0]', '$_[1]' ) . '}'
170					);
171	3	6µs			confess "Could not generate inline writer because : $e" if $e;
172
173	3	45µs			return $code;
174					}
175
176					# spent 9.49ms (1.40+8.08) within Class::MOP::Method::Accessor::_generate_predicate_method_inline which was called 20 times, avg 474µs/call: # 13 times (903µs+5.27ms) by Class::MOP::Method::Accessor::_initialize_body at line 87, avg 475µs/call # 7 times (500µs+2.81ms) by Moose::Meta::Method::Accessor::_generate_predicate_method at line 141 of Moose/Meta/Method/Accessor.pm, avg 473µs/call sub _generate_predicate_method_inline {
177	20	60µs			my $self = shift;
178	20	205µs	20	171µs	my $attr = $self->associated_attribute; # spent 171µs making 20 calls to Class::MOP::Method::Accessor::associated_attribute, avg 9µs/call
179
180	20	562µs	40	7.91ms	my ( $code, $e ) = $self->_eval_closure( # spent 5.22ms making 20 calls to Class::MOP::Method::Generated::_eval_closure, avg 261µs/call # spent 2.70ms making 20 calls to Class::MOP::Attribute::inline_has, avg 135µs/call
181					{},
182					'sub {' . $attr->inline_has('$_[0]') . '}'
183					);
184	20	37µs			confess "Could not generate inline predicate because : $e" if $e;
185
186	20	351µs			return $code;
187					}
188
189					sub _generate_clearer_method_inline {
190					my $self = shift;
191					my $attr = $self->associated_attribute;
192
193					my ( $code, $e ) = $self->_eval_closure(
194					{},
195					'sub {' . $attr->inline_clear('$_[0]') . '}'
196					);
197					confess "Could not generate inline clearer because : $e" if $e;
198
199					return $code;
200					}
201
202	1	12µs			1;
203
204					__END__