← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mentat.storage.mongo.pl
  Run on Tue Jun 24 10:04:38 2014
Reported on Tue Jun 24 10:05:16 2014

Filename/usr/local/lib/perl/5.14.2/Class/MOP/Attribute.pm
StatementsExecuted 22643 statements in 43.8ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
309527.27ms118msClass::MOP::Attribute::::_process_accessorsClass::MOP::Attribute::_process_accessors
820315.03ms7.85msClass::MOP::Attribute::::_set_initial_slot_valueClass::MOP::Attribute::_set_initial_slot_value
257324.94ms150msClass::MOP::Attribute::::install_accessorsClass::MOP::Attribute::install_accessors
499223.76ms15.5msClass::MOP::Attribute::::_inline_instance_setClass::MOP::Attribute::_inline_instance_set
1001113.61ms12.5msClass::MOP::Attribute::::initialize_instance_slotClass::MOP::Attribute::initialize_instance_slot
309212.50ms3.06msClass::MOP::Attribute::::_accessor_descriptionClass::MOP::Attribute::_accessor_description
1815042.12ms5.07msClass::MOP::Attribute::::newClass::MOP::Attribute::new
813111.72ms2.11msClass::MOP::Attribute::::slotsClass::MOP::Attribute::slots
496531.40ms16.9msClass::MOP::Attribute::::_inline_set_valueClass::MOP::Attribute::_inline_set_value
181111.12ms1.51msClass::MOP::Attribute::::attach_to_classClass::MOP::Attribute::attach_to_class
135221.05ms6.45msClass::MOP::Attribute::::_inline_instance_getClass::MOP::Attribute::_inline_instance_get
123111.02ms1.59msClass::MOP::Attribute::::_newClass::MOP::Attribute::_new
34532902µs902µsClass::MOP::Attribute::::associate_methodClass::MOP::Attribute::associate_method
24521224µs224µsClass::MOP::Attribute::::accessor_metaclassClass::MOP::Attribute::accessor_metaclass
7521219µs2.86msClass::MOP::Attribute::::_inline_get_valueClass::MOP::Attribute::_inline_get_value
2122180µs369µsClass::MOP::Attribute::::_inline_instance_hasClass::MOP::Attribute::_inline_instance_has
3611122µs147µsClass::MOP::Attribute::::get_read_methodClass::MOP::Attribute::get_read_method
1211109µs265µsClass::MOP::Attribute::::get_raw_valueClass::MOP::Attribute::get_raw_value
1211103µs252µsClass::MOP::Attribute::::has_valueClass::MOP::Attribute::has_value
71161µs208µsClass::MOP::Attribute::::set_initial_valueClass::MOP::Attribute::set_initial_value
181156µs370µsClass::MOP::Attribute::::_inline_has_valueClass::MOP::Attribute::_inline_has_value
21126µs47µsClass::MOP::Attribute::::_inline_instance_clearClass::MOP::Attribute::_inline_instance_clear
121126µs291µsClass::MOP::Attribute::::get_valueClass::MOP::Attribute::get_value
21114µs61µsClass::MOP::Attribute::::_inline_clear_valueClass::MOP::Attribute::_inline_clear_value
1119µs9µsClass::MOP::Attribute::::BEGIN@3Class::MOP::Attribute::BEGIN@3
1118µs11µsClass::MOP::Attribute::::BEGIN@10Class::MOP::Attribute::BEGIN@10
1117µs36µsClass::MOP::Attribute::::BEGIN@17Class::MOP::Attribute::BEGIN@17
1117µs12µsClass::MOP::Attribute::::BEGIN@11Class::MOP::Attribute::BEGIN@11
1117µs34µsClass::MOP::Attribute::::BEGIN@16Class::MOP::Attribute::BEGIN@16
1117µs72µsClass::MOP::Attribute::::BEGIN@19Class::MOP::Attribute::BEGIN@19
1116µs34µsClass::MOP::Attribute::::BEGIN@15Class::MOP::Attribute::BEGIN@15
1114µs4µsClass::MOP::Attribute::::BEGIN@13Class::MOP::Attribute::BEGIN@13
0000s0sClass::MOP::Attribute::::__ANON__[:169]Class::MOP::Attribute::__ANON__[:169]
0000s0sClass::MOP::Attribute::::__ANON__[:198]Class::MOP::Attribute::__ANON__[:198]
0000s0sClass::MOP::Attribute::::__ANON__[:218]Class::MOP::Attribute::__ANON__[:218]
0000s0sClass::MOP::Attribute::::__ANON__[:398]Class::MOP::Attribute::__ANON__[:398]
0000s0sClass::MOP::Attribute::::__ANON__[:401]Class::MOP::Attribute::__ANON__[:401]
0000s0sClass::MOP::Attribute::::__ANON__[:456]Class::MOP::Attribute::__ANON__[:456]
0000s0sClass::MOP::Attribute::::_make_initializer_writer_callbackClass::MOP::Attribute::_make_initializer_writer_callback
0000s0sClass::MOP::Attribute::::clear_valueClass::MOP::Attribute::clear_value
0000s0sClass::MOP::Attribute::::detach_from_classClass::MOP::Attribute::detach_from_class
0000s0sClass::MOP::Attribute::::get_read_method_refClass::MOP::Attribute::get_read_method_ref
0000s0sClass::MOP::Attribute::::get_write_methodClass::MOP::Attribute::get_write_method
0000s0sClass::MOP::Attribute::::get_write_method_refClass::MOP::Attribute::get_write_method_ref
0000s0sClass::MOP::Attribute::::remove_accessorsClass::MOP::Attribute::remove_accessors
0000s0sClass::MOP::Attribute::::set_raw_valueClass::MOP::Attribute::set_raw_value
0000s0sClass::MOP::Attribute::::set_valueClass::MOP::Attribute::set_value
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
2package Class::MOP::Attribute;
3
# spent 9µs within Class::MOP::Attribute::BEGIN@3 which was called: # once (9µs+0s) by Class::MOP::BEGIN@27 at line 5
BEGIN {
415µs $Class::MOP::Attribute::AUTHORITY = 'cpan:STEVAN';
5131µs19µs}
# spent 9µs making 1 call to Class::MOP::Attribute::BEGIN@3
6{
721µs $Class::MOP::Attribute::VERSION = '2.1005';
8}
9
10223µs214µs
# spent 11µs (8+3) within Class::MOP::Attribute::BEGIN@10 which was called: # once (8µs+3µs) by Class::MOP::BEGIN@27 at line 10
use strict;
# spent 11µs making 1 call to Class::MOP::Attribute::BEGIN@10 # spent 3µs making 1 call to strict::import
11222µs218µs
# spent 12µs (7+5) within Class::MOP::Attribute::BEGIN@11 which was called: # once (7µs+5µs) by Class::MOP::BEGIN@27 at line 11
use warnings;
# spent 12µs making 1 call to Class::MOP::Attribute::BEGIN@11 # spent 5µs making 1 call to warnings::import
12
13222µs14µs
# spent 4µs within Class::MOP::Attribute::BEGIN@13 which was called: # once (4µs+0s) by Class::MOP::BEGIN@27 at line 13
use Class::MOP::Method::Accessor;
# spent 4µs making 1 call to Class::MOP::Attribute::BEGIN@13
14
15226µs263µs
# spent 34µs (6+28) within Class::MOP::Attribute::BEGIN@15 which was called: # once (6µs+28µs) by Class::MOP::BEGIN@27 at line 15
use Carp 'confess';
# spent 34µs making 1 call to Class::MOP::Attribute::BEGIN@15 # spent 28µs making 1 call to Exporter::import
16222µs261µs
# spent 34µs (7+27) within Class::MOP::Attribute::BEGIN@16 which was called: # once (7µs+27µs) by Class::MOP::BEGIN@27 at line 16
use Scalar::Util 'blessed', 'weaken';
# spent 34µs making 1 call to Class::MOP::Attribute::BEGIN@16 # spent 27µs making 1 call to Exporter::import
17226µs266µs
# spent 36µs (7+29) within Class::MOP::Attribute::BEGIN@17 which was called: # once (7µs+29µs) by Class::MOP::BEGIN@27 at line 17
use Try::Tiny;
# spent 36µs making 1 call to Class::MOP::Attribute::BEGIN@17 # spent 29µs making 1 call to Exporter::import
18
1921.91ms2138µs
# spent 72µs (7+66) within Class::MOP::Attribute::BEGIN@19 which was called: # once (7µs+66µs) by Class::MOP::BEGIN@27 at line 19
use base 'Class::MOP::Object', 'Class::MOP::Mixin::AttributeCore';
# spent 72µs making 1 call to Class::MOP::Attribute::BEGIN@19 # spent 66µs making 1 call to base::import
20
21# NOTE: (meta-circularity)
22# This method will be replaced in the
23# boostrap section of Class::MOP, by
24# a new version which uses the
25# &Class::MOP::Class::construct_instance
26# method to build an attribute meta-object
27# which itself is described with attribute
28# meta-objects.
29# - Ain't meta-circularity grand? :)
30
# spent 5.07ms (2.12+2.95) within Class::MOP::Attribute::new which was called 181 times, avg 28µs/call: # 74 times (858µs+655µs) by Class::MOP::Mixin::HasAttributes::add_attribute at line 20 of Class/MOP/Mixin/HasAttributes.pm, avg 20µs/call # 59 times (760µs+1.87ms) by Moose::Meta::Attribute::new at line 121 of Moose/Meta/Attribute.pm, avg 45µs/call # once (19µs+16µs) by Moose::Exporter::BEGIN@13 at line 133 of Class/MOP.pm # once (24µs+9µs) by Moose::Exporter::BEGIN@13 at line 270 of Class/MOP.pm # once (14µs+12µs) by Moose::Exporter::BEGIN@13 at line 479 of Class/MOP.pm # once (9µs+16µs) by Moose::Exporter::BEGIN@13 at line 425 of Class/MOP.pm # once (13µs+11µs) by Moose::Exporter::BEGIN@13 at line 150 of Class/MOP.pm # once (12µs+10µs) by Moose::Exporter::BEGIN@13 at line 597 of Class/MOP.pm # once (12µs+11µs) by Moose::Exporter::BEGIN@13 at line 635 of Class/MOP.pm # once (13µs+9µs) by Moose::Exporter::BEGIN@13 at line 287 of Class/MOP.pm # once (10µs+12µs) by Moose::Exporter::BEGIN@13 at line 401 of Class/MOP.pm # once (10µs+12µs) by Moose::Exporter::BEGIN@13 at line 433 of Class/MOP.pm # once (12µs+9µs) by Moose::Exporter::BEGIN@13 at line 178 of Class/MOP.pm # once (9µs+12µs) by Moose::Exporter::BEGIN@13 at line 370 of Class/MOP.pm # once (13µs+9µs) by Moose::Exporter::BEGIN@13 at line 223 of Class/MOP.pm # once (9µs+12µs) by Moose::Exporter::BEGIN@13 at line 378 of Class/MOP.pm # once (12µs+9µs) by Moose::Exporter::BEGIN@13 at line 250 of Class/MOP.pm # once (9µs+12µs) by Moose::Exporter::BEGIN@13 at line 460 of Class/MOP.pm # once (10µs+11µs) by Moose::Exporter::BEGIN@13 at line 409 of Class/MOP.pm # once (10µs+11µs) by Moose::Exporter::BEGIN@13 at line 449 of Class/MOP.pm # once (9µs+12µs) by Moose::Exporter::BEGIN@13 at line 386 of Class/MOP.pm # once (9µs+12µs) by Moose::Exporter::BEGIN@13 at line 417 of Class/MOP.pm # once (9µs+11µs) by Moose::Exporter::BEGIN@13 at line 441 of Class/MOP.pm # once (9µs+12µs) by Moose::Exporter::BEGIN@13 at line 394 of Class/MOP.pm # once (9µs+10µs) by Moose::Exporter::BEGIN@13 at line 198 of Class/MOP.pm # once (9µs+9µs) by Moose::Exporter::BEGIN@13 at line 490 of Class/MOP.pm # once (11µs+7µs) by Moose::BEGIN@27 at line 47 of Moose/Meta/Class.pm # once (10µs+7µs) by Moose::Exporter::BEGIN@13 at line 137 of Class/MOP.pm # once (10µs+7µs) by Moose::Exporter::BEGIN@13 at line 291 of Class/MOP.pm # once (10µs+7µs) by Moose::Exporter::BEGIN@13 at line 562 of Class/MOP.pm # once (10µs+7µs) by Moose::Exporter::BEGIN@13 at line 307 of Class/MOP.pm # once (10µs+7µs) by Moose::Exporter::BEGIN@13 at line 543 of Class/MOP.pm # once (10µs+7µs) by Moose::Exporter::BEGIN@13 at line 182 of Class/MOP.pm # once (9µs+7µs) by Moose::Exporter::BEGIN@13 at line 317 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 327 of Class/MOP.pm # once (9µs+7µs) by Moose::Exporter::BEGIN@13 at line 355 of Class/MOP.pm # once (9µs+7µs) by Moose::Exporter::BEGIN@13 at line 534 of Class/MOP.pm # once (9µs+7µs) by Moose::Exporter::BEGIN@13 at line 601 of Class/MOP.pm # once (9µs+7µs) by Moose::Exporter::BEGIN@13 at line 581 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 504 of Class/MOP.pm # once (9µs+7µs) by Moose::Exporter::BEGIN@13 at line 497 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 618 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 511 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 642 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 572 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 518 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 649 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 338 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 551 of Class/MOP.pm # once (9µs+6µs) by Moose::Exporter::BEGIN@13 at line 625 of Class/MOP.pm
sub new {
3116291.92ms my ( $class, @args ) = @_;
32
33 unshift @args, "name" if @args % 2 == 1;
34 my %options = @args;
35
36 my $name = $options{name};
37
38 (defined $name)
39 || confess "You must provide a name for the attribute";
40
41 $options{init_arg} = $name
42 if not exists $options{init_arg};
43185127µs if(exists $options{builder}){
44 confess("builder must be a defined scalar value which is a method name")
45 if ref $options{builder} || !(defined $options{builder});
46 confess("Setting both default and builder is not allowed.")
47 if exists $options{default};
48 } else {
492975µs ($class->is_default_a_coderef(\%options))
# spent 75µs making 29 calls to Class::MOP::Mixin::AttributeCore::is_default_a_coderef, avg 3µs/call
50 || confess("References are not allowed as default values, you must ".
51 "wrap the default of '$name' in a CODE reference (ex: sub { [] } and not [])")
52 if exists $options{default} && ref $options{default};
53 }
54 if( $options{required} and not( defined($options{builder}) || defined($options{init_arg}) || exists $options{default} ) ) {
55 confess("A required attribute must have either 'init_arg', 'builder', or 'default'");
56 }
57
581812.88ms $class->_new(\%options);
# spent 1.59ms making 123 calls to Class::MOP::Attribute::_new, avg 13µs/call # spent 1.28ms making 58 calls to Moose::Meta::Attribute::_new, avg 22µs/call
59}
60
61
# spent 1.59ms (1.02+572µs) within Class::MOP::Attribute::_new which was called 123 times, avg 13µs/call: # 123 times (1.02ms+572µs) by Class::MOP::Attribute::new at line 58, avg 13µs/call
sub _new {
624901.14ms my $class = shift;
63
642572µs return Class::MOP::Class->initialize($class)->new_object(@_)
# spent 566µs making 1 call to Class::MOP::Class::new_object # spent 6µs making 1 call to Class::MOP::Class::initialize
65 if $class ne __PACKAGE__;
66
67 my $options = @_ == 1 ? $_[0] : {@_};
68
69 bless {
70 'name' => $options->{name},
71 'accessor' => $options->{accessor},
72 'reader' => $options->{reader},
73 'writer' => $options->{writer},
74 'predicate' => $options->{predicate},
75 'clearer' => $options->{clearer},
76 'builder' => $options->{builder},
77 'init_arg' => $options->{init_arg},
78 exists $options->{default}
79 ? ('default' => $options->{default})
80 : (),
81 'initializer' => $options->{initializer},
82 'definition_context' => $options->{definition_context},
83 # keep a weakened link to the
84 # class we are associated with
85 'associated_class' => undef,
86 # and a list of the methods
87 # associated with this attr
88 'associated_methods' => [],
89 # this let's us keep track of
90 # our order inside the associated
91 # class
92 'insertion_order' => undef,
93 }, $class;
94}
95
96# NOTE:
97# this is a primitive (and kludgy) clone operation
98# for now, it will be replaced in the Class::MOP
99# bootstrap with a proper one, however we know
100# that this one will work fine for now.
101sub clone {
102 my $self = shift;
103 my %options = @_;
104 (blessed($self))
105 || confess "Can only clone an instance";
106 return bless { %{$self}, %options } => ref($self);
107}
108
109
# spent 12.5ms (3.61+8.86) within Class::MOP::Attribute::initialize_instance_slot which was called 1001 times, avg 12µs/call: # 1001 times (3.61ms+8.86ms) by Class::MOP::Class::_construct_instance at line 525 of Class/MOP/Class.pm, avg 12µs/call
sub initialize_instance_slot {
11030032.54ms my ($self, $meta_instance, $instance, $params) = @_;
111 my $init_arg = $self->{'init_arg'};
112
113 # try to fetch the init arg from the %params ...
114
115 # if nothing was in the %params, we can use the
116 # attribute's default value (if it has one)
117813934µs if(defined $init_arg and exists $params->{$init_arg}){
1186436.14ms $self->_set_initial_slot_value(
# spent 6.14ms making 643 calls to Class::MOP::Attribute::_set_initial_slot_value, avg 10µs/call
119 $meta_instance,
120 $instance,
121 $params->{$init_arg},
122 );
123 }
124 elsif (exists $self->{'default'}) {
1253402.72ms $self->_set_initial_slot_value(
# spent 1.62ms making 170 calls to Class::MOP::Attribute::_set_initial_slot_value, avg 10µs/call # spent 1.09ms making 170 calls to Class::MOP::Mixin::AttributeCore::default, avg 6µs/call
126 $meta_instance,
127 $instance,
128 $self->default($instance),
129 );
130 }
131 elsif (defined( my $builder = $self->{'builder'})) {
132 if ($builder = $instance->can($builder)) {
133 $self->_set_initial_slot_value(
134 $meta_instance,
135 $instance,
136 $instance->$builder,
137 );
138 }
139 else {
140 confess(ref($instance)." does not support builder method '". $self->{'builder'} ."' for attribute '" . $self->name . "'");
141 }
142 }
143}
144
145
# spent 7.85ms (5.03+2.82) within Class::MOP::Attribute::_set_initial_slot_value which was called 820 times, avg 10µs/call: # 643 times (3.93ms+2.21ms) by Class::MOP::Attribute::initialize_instance_slot at line 118, avg 10µs/call # 170 times (1.05ms+574µs) by Class::MOP::Attribute::initialize_instance_slot at line 125, avg 10µs/call # 7 times (55µs+32µs) by Class::MOP::Attribute::set_initial_value at line 261, avg 12µs/call
sub _set_initial_slot_value {
14624604.72ms my ($self, $meta_instance, $instance, $value) = @_;
147
148820448µs my $slot_name = $self->name;
# spent 448µs making 820 calls to Class::MOP::Mixin::AttributeCore::name, avg 547ns/call
149
15016402.37ms return $meta_instance->set_slot_value($instance, $slot_name, $value)
# spent 1.51ms making 820 calls to Class::MOP::Instance::set_slot_value, avg 2µs/call # spent 862µs making 820 calls to Class::MOP::Mixin::AttributeCore::has_initializer, avg 1µs/call
151 unless $self->has_initializer;
152
153 my $callback = $self->_make_initializer_writer_callback(
154 $meta_instance, $instance, $slot_name
155 );
156
157 my $initializer = $self->initializer;
158
159 # most things will just want to set a value, so make it first arg
160 $instance->$initializer($value, $callback, $self);
161}
162
163sub _make_initializer_writer_callback {
164 my $self = shift;
165 my ($meta_instance, $instance, $slot_name) = @_;
166
167 return sub {
168 $meta_instance->set_slot_value($instance, $slot_name, $_[0]);
169 };
170}
171
172
# spent 147µs (122+25) within Class::MOP::Attribute::get_read_method which was called 36 times, avg 4µs/call: # 36 times (122µs+25µs) by Moose::Meta::Method::Delegation::_get_delegate_accessor at line 127 of Moose/Meta/Method/Delegation.pm, avg 4µs/call
sub get_read_method {
173108173µs my $self = shift;
1743625µs my $reader = $self->reader || $self->accessor;
# spent 25µs making 36 calls to Class::MOP::Mixin::AttributeCore::reader, avg 686ns/call
175 # normal case ...
176 return $reader unless ref $reader;
177 # the HASH ref case
178 my ($name) = %$reader;
179 return $name;
180}
181
182sub get_write_method {
183 my $self = shift;
184 my $writer = $self->writer || $self->accessor;
185 # normal case ...
186 return $writer unless ref $writer;
187 # the HASH ref case
188 my ($name) = %$writer;
189 return $name;
190}
191
192sub get_read_method_ref {
193 my $self = shift;
194 if ((my $reader = $self->get_read_method) && $self->associated_class) {
195 return $self->associated_class->get_method($reader);
196 }
197 else {
198 my $code = sub { $self->get_value(@_) };
199 if (my $class = $self->associated_class) {
200 return $class->method_metaclass->wrap(
201 $code,
202 package_name => $class->name,
203 name => '__ANON__'
204 );
205 }
206 else {
207 return $code;
208 }
209 }
210}
211
212sub get_write_method_ref {
213 my $self = shift;
214 if ((my $writer = $self->get_write_method) && $self->associated_class) {
215 return $self->associated_class->get_method($writer);
216 }
217 else {
218 my $code = sub { $self->set_value(@_) };
219 if (my $class = $self->associated_class) {
220 return $class->method_metaclass->wrap(
221 $code,
222 package_name => $class->name,
223 name => '__ANON__'
224 );
225 }
226 else {
227 return $code;
228 }
229 }
230}
231
232# slots
233
2348132.54ms813388µs
# spent 2.11ms (1.72+388µs) within Class::MOP::Attribute::slots which was called 813 times, avg 3µs/call: # 813 times (1.72ms+388µs) by Class::MOP::Instance::BUILDARGS at line 33 of Class/MOP/Instance.pm, avg 3µs/call
sub slots { (shift)->name }
# spent 388µs making 813 calls to Class::MOP::Mixin::AttributeCore::name, avg 477ns/call
235
236# class association
237
238
# spent 1.51ms (1.12+395µs) within Class::MOP::Attribute::attach_to_class which was called 181 times, avg 8µs/call: # 181 times (1.12ms+395µs) by Class::MOP::Class::_attach_attribute at line 880 of Class/MOP/Class.pm, avg 8µs/call
sub attach_to_class {
2395431.64ms my ($self, $class) = @_;
240362213µs (blessed($class) && $class->isa('Class::MOP::Class'))
# spent 118µs making 181 calls to UNIVERSAL::isa, avg 653ns/call # spent 95µs making 181 calls to Scalar::Util::blessed, avg 527ns/call
241 || confess "You must pass a Class::MOP::Class instance (or a subclass)";
242181181µs weaken($self->{'associated_class'} = $class);
# spent 181µs making 181 calls to Scalar::Util::weaken, avg 1µs/call
243}
244
245sub detach_from_class {
246 my $self = shift;
247 $self->{'associated_class'} = undef;
248}
249
250# method association
251
252
# spent 902µs within Class::MOP::Attribute::associate_method which was called 345 times, avg 3µs/call: # 252 times (700µs+0s) by Class::MOP::Attribute::_process_accessors at line 402, avg 3µs/call # 57 times (121µs+0s) by Class::MOP::Attribute::_process_accessors at line 380, avg 2µs/call # 36 times (81µs+0s) by Moose::Meta::Attribute::install_delegation at line 1126 of Moose/Meta/Attribute.pm, avg 2µs/call
sub associate_method {
253690991µs my ($self, $method) = @_;
254345159µs push @{$self->{'associated_methods'}} => $method;
255}
256
257## Slot management
258
259
# spent 208µs (61+147) within Class::MOP::Attribute::set_initial_value which was called 7 times, avg 30µs/call: # 7 times (61µs+147µs) by Moose::Meta::Attribute::initialize_instance_slot at line 538 of Moose/Meta/Attribute.pm, avg 30µs/call
sub set_initial_value {
2601453µs my ($self, $instance, $value) = @_;
26121147µs $self->_set_initial_slot_value(
# spent 87µs making 7 calls to Class::MOP::Attribute::_set_initial_slot_value, avg 12µs/call # spent 35µs making 7 calls to Class::MOP::Class::initialize, avg 5µs/call # spent 12µs making 2 calls to Class::MOP::Class::Immutable::Class::MOP::Class::get_meta_instance, avg 6µs/call # spent 7µs making 1 call to Class::MOP::Class::Immutable::Moose::Meta::Class::get_meta_instance # spent 5µs making 4 calls to Class::MOP::Class::get_meta_instance, avg 1µs/call
262 Class::MOP::Class->initialize(ref($instance))->get_meta_instance,
263 $instance,
264 $value
265 );
266}
267
268sub set_value { shift->set_raw_value(@_) }
269
270sub set_raw_value {
271 my $self = shift;
272 my ($instance, $value) = @_;
273
274 my $mi = Class::MOP::Class->initialize(ref($instance))->get_meta_instance;
275 return $mi->set_slot_value($instance, $self->name, $value);
276}
277
278
# spent 16.9ms (1.40+15.5) within Class::MOP::Attribute::_inline_set_value which was called 496 times, avg 34µs/call: # 273 times (732µs+6.59ms) by Class::MOP::Class::_inline_init_attr_from_constructor at line 630 of Class/MOP/Class.pm, avg 27µs/call # 102 times (324µs+5.46ms) by Moose::Meta::Attribute::_inline_set_value at line 628 of Moose/Meta/Attribute.pm, avg 57µs/call # 96 times (267µs+1.94ms) by Class::MOP::Class::_inline_init_attr_from_default at line 651 of Class/MOP/Class.pm, avg 23µs/call # 22 times (64µs+1.45ms) by Class::MOP::Method::Accessor::try {...} at line 112 of Class/MOP/Method/Accessor.pm, avg 69µs/call # 3 times (9µs+51µs) by Class::MOP::Method::Accessor::try {...} at line 179 of Class/MOP/Method/Accessor.pm, avg 20µs/call
sub _inline_set_value {
2799921.36ms my $self = shift;
28049615.5ms return $self->_inline_instance_set(@_) . ';';
# spent 15.5ms making 496 calls to Class::MOP::Attribute::_inline_instance_set, avg 31µs/call
281}
282
283
# spent 15.5ms (3.76+11.8) within Class::MOP::Attribute::_inline_instance_set which was called 499 times, avg 31µs/call: # 496 times (3.74ms+11.8ms) by Class::MOP::Attribute::_inline_set_value at line 280, avg 31µs/call # 3 times (25µs+26µs) by Moose::Meta::Attribute::_inline_init_slot at line 972 of Moose/Meta/Attribute.pm, avg 17µs/call
sub _inline_instance_set {
28419963.99ms my $self = shift;
285 my ($instance, $value) = @_;
286
2879988.67ms my $mi = $self->associated_class->get_meta_instance;
# spent 5.29ms making 247 calls to Class::MOP::Class::get_meta_instance, avg 21µs/call # spent 3.11ms making 252 calls to Class::MOP::Class::Immutable::Class::MOP::Class::get_meta_instance, avg 12µs/call # spent 274µs making 499 calls to Class::MOP::Attribute::associated_class, avg 550ns/call
2889983.12ms return $mi->inline_set_slot_value($instance, $self->name, $value);
# spent 2.80ms making 499 calls to Class::MOP::Instance::inline_set_slot_value, avg 6µs/call # spent 319µs making 499 calls to Class::MOP::Mixin::AttributeCore::name, avg 639ns/call
289}
290
2911230µs12265µs
# spent 291µs (26+265) within Class::MOP::Attribute::get_value which was called 12 times, avg 24µs/call: # 12 times (26µs+265µs) by Moose::Meta::Mixin::AttributeCore::is_lazy or Moose::Meta::Mixin::AttributeCore::is_required or Moose::Meta::Mixin::AttributeCore::is_weak_ref or Moose::Meta::Mixin::AttributeCore::should_auto_deref or Moose::Meta::Mixin::AttributeCore::should_coerce at line 133 of Class/MOP/Method/Accessor.pm, avg 24µs/call
sub get_value { shift->get_raw_value(@_) }
# spent 265µs making 12 calls to Class::MOP::Attribute::get_raw_value, avg 22µs/call
292
293
# spent 265µs (109+156) within Class::MOP::Attribute::get_raw_value which was called 12 times, avg 22µs/call: # 12 times (109µs+156µs) by Class::MOP::Attribute::get_value at line 291, avg 22µs/call
sub get_raw_value {
2944886µs my $self = shift;
295 my ($instance) = @_;
296
29724127µs my $mi = Class::MOP::Class->initialize(ref($instance))->get_meta_instance;
# spent 67µs making 10 calls to Class::MOP::Class::Immutable::Class::MOP::Class::get_meta_instance, avg 7µs/call # spent 57µs making 12 calls to Class::MOP::Class::initialize, avg 5µs/call # spent 3µs making 2 calls to Class::MOP::Class::get_meta_instance, avg 1µs/call
2982429µs return $mi->get_slot_value($instance, $self->name);
# spent 21µs making 12 calls to Class::MOP::Instance::get_slot_value, avg 2µs/call # spent 8µs making 12 calls to Class::MOP::Mixin::AttributeCore::name, avg 692ns/call
299}
300
301
# spent 2.86ms (219µs+2.64) within Class::MOP::Attribute::_inline_get_value which was called 75 times, avg 38µs/call: # 53 times (154µs+2.33ms) by Class::MOP::Method::Accessor::try {...} at line 142 of Class/MOP/Method/Accessor.pm, avg 47µs/call # 22 times (64µs+316µs) by Class::MOP::Method::Accessor::try {...} at line 112 of Class/MOP/Method/Accessor.pm, avg 17µs/call
sub _inline_get_value {
302150215µs my $self = shift;
303752.64ms return $self->_inline_instance_get(@_) . ';';
# spent 2.64ms making 75 calls to Class::MOP::Attribute::_inline_instance_get, avg 35µs/call
304}
305
306
# spent 6.45ms (1.05+5.40) within Class::MOP::Attribute::_inline_instance_get which was called 135 times, avg 48µs/call: # 75 times (579µs+2.06ms) by Class::MOP::Attribute::_inline_get_value at line 303, avg 35µs/call # 60 times (470µs+3.33ms) by Moose::Meta::Attribute::_inline_get_value at line 874 of Moose/Meta/Attribute.pm, avg 63µs/call
sub _inline_instance_get {
3075401.13ms my $self = shift;
308 my ($instance) = @_;
309
3102704.56ms my $mi = $self->associated_class->get_meta_instance;
# spent 4.47ms making 135 calls to Class::MOP::Class::get_meta_instance, avg 33µs/call # spent 85µs making 135 calls to Class::MOP::Attribute::associated_class, avg 632ns/call
311270842µs return $mi->inline_get_slot_value($instance, $self->name);
# spent 756µs making 135 calls to Class::MOP::Instance::inline_get_slot_value, avg 6µs/call # spent 85µs making 135 calls to Class::MOP::Mixin::AttributeCore::name, avg 632ns/call
312}
313
314
# spent 252µs (103+149) within Class::MOP::Attribute::has_value which was called 12 times, avg 21µs/call: # 12 times (103µs+149µs) by Moose::Meta::Mixin::AttributeCore::has_handles or Moose::Meta::Mixin::AttributeCore::has_trigger or Moose::Meta::Mixin::AttributeCore::has_type_constraint at line 195 of Class/MOP/Method/Accessor.pm, avg 21µs/call
sub has_value {
3154893µs my $self = shift;
316 my ($instance) = @_;
317
31824118µs my $mi = Class::MOP::Class->initialize(ref($instance))->get_meta_instance;
# spent 59µs making 12 calls to Class::MOP::Class::initialize, avg 5µs/call # spent 54µs making 9 calls to Class::MOP::Class::Immutable::Class::MOP::Class::get_meta_instance, avg 6µs/call # spent 4µs making 3 calls to Class::MOP::Class::get_meta_instance, avg 1µs/call
3192431µs return $mi->is_slot_initialized($instance, $self->name);
# spent 22µs making 12 calls to Class::MOP::Instance::is_slot_initialized, avg 2µs/call # spent 8µs making 12 calls to Class::MOP::Mixin::AttributeCore::name, avg 708ns/call
320}
321
322
# spent 370µs (56+314) within Class::MOP::Attribute::_inline_has_value which was called 18 times, avg 21µs/call: # 18 times (56µs+314µs) by Class::MOP::Method::Accessor::try {...} at line 204 of Class/MOP/Method/Accessor.pm, avg 21µs/call
sub _inline_has_value {
3233652µs my $self = shift;
32418314µs return $self->_inline_instance_has(@_) . ';';
# spent 314µs making 18 calls to Class::MOP::Attribute::_inline_instance_has, avg 17µs/call
325}
326
327
# spent 369µs (180+189) within Class::MOP::Attribute::_inline_instance_has which was called 21 times, avg 18µs/call: # 18 times (151µs+163µs) by Class::MOP::Attribute::_inline_has_value at line 324, avg 17µs/call # 3 times (30µs+26µs) by Moose::Meta::Attribute::_inline_check_lazy at line 891 of Moose/Meta/Attribute.pm, avg 19µs/call
sub _inline_instance_has {
32884188µs my $self = shift;
329 my ($instance) = @_;
330
3314243µs my $mi = $self->associated_class->get_meta_instance;
# spent 31µs making 21 calls to Class::MOP::Class::get_meta_instance, avg 1µs/call # spent 13µs making 21 calls to Class::MOP::Attribute::associated_class, avg 610ns/call
33242146µs return $mi->inline_is_slot_initialized($instance, $self->name);
# spent 132µs making 21 calls to Class::MOP::Instance::inline_is_slot_initialized, avg 6µs/call # spent 14µs making 21 calls to Class::MOP::Mixin::AttributeCore::name, avg 648ns/call
333}
334
335sub clear_value {
336 my $self = shift;
337 my ($instance) = @_;
338
339 my $mi = Class::MOP::Class->initialize(ref($instance))->get_meta_instance;
340 return $mi->deinitialize_slot($instance, $self->name);
341}
342
343
# spent 61µs (14+47) within Class::MOP::Attribute::_inline_clear_value which was called 2 times, avg 31µs/call: # 2 times (14µs+47µs) by Class::MOP::Method::Accessor::try {...} at line 229 of Class/MOP/Method/Accessor.pm, avg 31µs/call
sub _inline_clear_value {
344411µs my $self = shift;
345247µs return $self->_inline_instance_clear(@_) . ';';
# spent 47µs making 2 calls to Class::MOP::Attribute::_inline_instance_clear, avg 24µs/call
346}
347
348
# spent 47µs (26+21) within Class::MOP::Attribute::_inline_instance_clear which was called 2 times, avg 24µs/call: # 2 times (26µs+21µs) by Class::MOP::Attribute::_inline_clear_value at line 345, avg 24µs/call
sub _inline_instance_clear {
349830µs my $self = shift;
350 my ($instance) = @_;
351
35244µs my $mi = $self->associated_class->get_meta_instance;
# spent 3µs making 2 calls to Class::MOP::Class::get_meta_instance, avg 1µs/call # spent 2µs making 2 calls to Class::MOP::Attribute::associated_class, avg 750ns/call
353417µs return $mi->inline_deinitialize_slot($instance, $self->name);
# spent 16µs making 2 calls to Class::MOP::Instance::inline_deinitialize_slot, avg 8µs/call # spent 1µs making 2 calls to Class::MOP::Mixin::AttributeCore::name, avg 650ns/call
354}
355
356## load em up ...
357
358245419µs
# spent 224µs within Class::MOP::Attribute::accessor_metaclass which was called 245 times, avg 916ns/call: # 188 times (173µs+0s) by Class::MOP::Attribute::try {...} at line 389, avg 921ns/call # 57 times (51µs+0s) by Class::MOP::Attribute::_process_accessors at line 372, avg 898ns/call
sub accessor_metaclass { 'Class::MOP::Method::Accessor' }
359
360
# spent 118ms (7.27+111) within Class::MOP::Attribute::_process_accessors which was called 309 times, avg 383µs/call: # 150 times (3.55ms+25.2ms) by Class::MOP::Attribute::install_accessors at line 428, avg 192µs/call # 64 times (1.46ms+67.9ms) by Moose::Meta::Attribute::_process_accessors at line 1078 of Moose/Meta/Attribute.pm, avg 1.08ms/call # 45 times (1.11ms+10.2ms) by Class::MOP::Attribute::install_accessors at line 424, avg 252µs/call # 42 times (976µs+6.41ms) by Class::MOP::Attribute::install_accessors at line 436, avg 176µs/call # 8 times (178µs+1.32ms) by Class::MOP::Attribute::install_accessors at line 432, avg 187µs/call
sub _process_accessors {
3619271.24ms my ($self, $type, $accessor, $generate_as_inline_methods) = @_;
362
363309801µs309172µs my $method_ctx = { %{ $self->definition_context || {} } };
# spent 172µs making 309 calls to Class::MOP::Mixin::AttributeCore::definition_context, avg 557ns/call
364
36516025.03ms if (ref($accessor)) {
366 (ref($accessor) eq 'HASH')
367 || confess "bad accessor/reader/writer/predicate/clearer format, must be a HASH ref";
3685712µs my ($name, $method) = %{$accessor};
369
37057568µs $method_ctx->{description} = $self->_accessor_description($name, $type);
# spent 568µs making 57 calls to Class::MOP::Attribute::_accessor_description, avg 10µs/call
371
3722852.47ms $method = $self->accessor_metaclass->wrap(
# spent 2.34ms making 57 calls to Class::MOP::Method::wrap, avg 41µs/call # spent 53µs making 114 calls to Class::MOP::Attribute::associated_class, avg 461ns/call # spent 51µs making 57 calls to Class::MOP::Attribute::accessor_metaclass, avg 898ns/call # spent 24µs making 57 calls to Class::MOP::Package::name, avg 426ns/call
373 $method,
374 attribute => $self,
375 package_name => $self->associated_class->name,
376 name => $name,
377 associated_metaclass => $self->associated_class,
378 definition_context => $method_ctx,
379 );
38057121µs $self->associate_method($method);
# spent 121µs making 57 calls to Class::MOP::Attribute::associate_method, avg 2µs/call
381 return ($name, $method);
382 }
383 else {
384285173µs my $inline_me = ($generate_as_inline_methods && $self->associated_class->instance_metaclass->is_inlinable);
# spent 71µs making 95 calls to Class::MOP::Instance::is_inlinable, avg 745ns/call # spent 54µs making 95 calls to Class::MOP::Attribute::associated_class, avg 573ns/call # spent 48µs making 95 calls to Class::MOP::Class::instance_metaclass, avg 507ns/call
385 my $method;
386 try {
3875042.68ms2522.49ms $method_ctx->{description} = $self->_accessor_description($accessor, $type);
# spent 2.49ms making 252 calls to Class::MOP::Attribute::_accessor_description, avg 10µs/call
388
389126031.6ms $method = $self->accessor_metaclass->new(
# spent 30.8ms making 188 calls to Class::MOP::Method::Accessor::new, avg 164µs/call # spent 236µs making 504 calls to Class::MOP::Attribute::associated_class, avg 469ns/call # spent 173µs making 188 calls to Class::MOP::Attribute::accessor_metaclass, avg 921ns/call # spent 118µs making 64 calls to Moose::Meta::Method::Accessor::new, avg 2µs/call # spent 111µs making 252 calls to Class::MOP::Package::name, avg 442ns/call # spent 64µs making 64 calls to Moose::Meta::Attribute::accessor_metaclass, avg 1µs/call
390 attribute => $self,
391 is_inline => $inline_me,
392 accessor_type => $type,
393 package_name => $self->associated_class->name,
394 name => $accessor,
395 associated_metaclass => $self->associated_class,
396 definition_context => $method_ctx,
397 );
398 }
399 catch {
400 confess "Could not create the '$type' method for " . $self->name . " because : $_";
40150432.2ms };
# spent 106ms making 252 calls to Try::Tiny::try, avg 421µs/call, recursion: max depth 1, sum of overlapping time 74.7ms # spent 754µs making 252 calls to Try::Tiny::catch, avg 3µs/call
402252700µs $self->associate_method($method);
# spent 700µs making 252 calls to Class::MOP::Attribute::associate_method, avg 3µs/call
403 return ($accessor, $method);
404 }
405}
406
407
# spent 3.06ms (2.50+563µs) within Class::MOP::Attribute::_accessor_description which was called 309 times, avg 10µs/call: # 252 times (2.03ms+466µs) by Class::MOP::Attribute::try {...} at line 387, avg 10µs/call # 57 times (470µs+98µs) by Class::MOP::Attribute::_process_accessors at line 370, avg 10µs/call
sub _accessor_description {
40815453.06ms my $self = shift;
409 my ($name, $type) = @_;
410
411618355µs my $desc = "$type " . $self->associated_class->name . "::$name";
# spent 189µs making 309 calls to Class::MOP::Attribute::associated_class, avg 611ns/call # spent 166µs making 309 calls to Class::MOP::Package::name, avg 538ns/call
412110240µs309163µs if ( $name ne $self->name ) {
# spent 163µs making 309 calls to Class::MOP::Mixin::AttributeCore::name, avg 527ns/call
41311046µs $desc .= " of attribute " . $self->name;
# spent 46µs making 110 calls to Class::MOP::Mixin::AttributeCore::name, avg 416ns/call
414 }
415
416 return $desc;
417}
418
419
# spent 150ms (4.94+145) within Class::MOP::Attribute::install_accessors which was called 257 times, avg 582µs/call: # 122 times (2.40ms+25.5ms) by Class::MOP::Class::try {...} at line 891 of Class/MOP/Class.pm, avg 229µs/call # 75 times (1.38ms+40.4ms) by Class::MOP::Class::_inline_accessors at line 1413 of Class/MOP/Class.pm, avg 557µs/call # 60 times (1.15ms+78.7ms) by Moose::Meta::Attribute::install_accessors at line 1017 of Moose/Meta/Attribute.pm, avg 1.33ms/call
sub install_accessors {
42023134.09ms my $self = shift;
421 my $inline = shift;
422257164µs my $class = $self->associated_class;
# spent 164µs making 257 calls to Class::MOP::Attribute::associated_class, avg 639ns/call
423
42448254.1ms $class->add_method(
# spent 37.5ms making 30 calls to Moose::Meta::Attribute::_process_accessors, avg 1.25ms/call # spent 11.3ms making 45 calls to Class::MOP::Attribute::_process_accessors, avg 252µs/call # spent 4.90ms making 75 calls to Class::MOP::Mixin::HasMethods::add_method, avg 65µs/call # spent 354µs making 257 calls to Class::MOP::Mixin::AttributeCore::has_accessor, avg 1µs/call # spent 50µs making 75 calls to Class::MOP::Mixin::AttributeCore::accessor, avg 661ns/call
425 $self->_process_accessors('accessor' => $self->accessor(), $inline)
426 ) if $self->has_accessor();
427
42879774.4ms $class->add_method(
# spent 33.6ms making 30 calls to Moose::Meta::Attribute::_process_accessors, avg 1.12ms/call # spent 28.8ms making 150 calls to Class::MOP::Attribute::_process_accessors, avg 192µs/call # spent 11.6ms making 180 calls to Class::MOP::Mixin::HasMethods::add_method, avg 65µs/call # spent 326µs making 257 calls to Class::MOP::Mixin::AttributeCore::has_reader, avg 1µs/call # spent 118µs making 180 calls to Class::MOP::Mixin::AttributeCore::reader, avg 656ns/call
429 $self->_process_accessors('reader' => $self->reader(), $inline)
430 ) if $self->has_reader();
431
4322812.31ms $class->add_method(
# spent 1.50ms making 8 calls to Class::MOP::Attribute::_process_accessors, avg 187µs/call # spent 485µs making 8 calls to Class::MOP::Mixin::HasMethods::add_method, avg 61µs/call # spent 318µs making 257 calls to Class::MOP::Mixin::AttributeCore::has_writer, avg 1µs/call # spent 5µs making 8 calls to Class::MOP::Mixin::AttributeCore::writer, avg 650ns/call
433 $self->_process_accessors('writer' => $self->writer(), $inline)
434 ) if $self->has_writer();
435
43638911.7ms $class->add_method(
# spent 7.39ms making 42 calls to Class::MOP::Attribute::_process_accessors, avg 176µs/call # spent 2.63ms making 44 calls to Class::MOP::Mixin::HasMethods::add_method, avg 60µs/call # spent 1.42ms making 2 calls to Moose::Meta::Attribute::_process_accessors, avg 712µs/call # spent 271µs making 257 calls to Class::MOP::Mixin::AttributeCore::has_predicate, avg 1µs/call # spent 30µs making 44 calls to Class::MOP::Mixin::AttributeCore::predicate, avg 680ns/call
437 $self->_process_accessors('predicate' => $self->predicate(), $inline)
438 ) if $self->has_predicate();
439
4402631.88ms $class->add_method(
# spent 1.49ms making 2 calls to Moose::Meta::Attribute::_process_accessors, avg 744µs/call # spent 257µs making 257 calls to Class::MOP::Mixin::AttributeCore::has_clearer, avg 998ns/call # spent 131µs making 2 calls to Class::MOP::Mixin::HasMethods::add_method, avg 66µs/call # spent 1µs making 2 calls to Class::MOP::Mixin::AttributeCore::clearer, avg 700ns/call
441 $self->_process_accessors('clearer' => $self->clearer(), $inline)
442 ) if $self->has_clearer();
443
444 return;
445}
446
447{
4481300ns my $_remove_accessor = sub {
449 my ($accessor, $class) = @_;
450 if (ref($accessor) && ref($accessor) eq 'HASH') {
451 ($accessor) = keys %{$accessor};
452 }
453 my $method = $class->get_method($accessor);
454 $class->remove_method($accessor)
455 if (ref($method) && $method->isa('Class::MOP::Method::Accessor'));
45613µs };
457
458 sub remove_accessors {
459 my $self = shift;
460 # TODO:
461 # we really need to make sure to remove from the
462 # associates methods here as well. But this is
463 # such a slimly used method, I am not worried
464 # about it right now.
465 $_remove_accessor->($self->accessor(), $self->associated_class()) if $self->has_accessor();
466 $_remove_accessor->($self->reader(), $self->associated_class()) if $self->has_reader();
467 $_remove_accessor->($self->writer(), $self->associated_class()) if $self->has_writer();
468 $_remove_accessor->($self->predicate(), $self->associated_class()) if $self->has_predicate();
469 $_remove_accessor->($self->clearer(), $self->associated_class()) if $self->has_clearer();
470 return;
471 }
472
473}
474
47513µs1;
476
477# ABSTRACT: Attribute Meta Object
478
479__END__