Filename | /usr/local/lib/perl/5.14.2/Class/MOP/Attribute.pm |
Statements | Executed 22643 statements in 43.8ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
309 | 5 | 2 | 7.27ms | 118ms | _process_accessors | Class::MOP::Attribute::
820 | 3 | 1 | 5.03ms | 7.85ms | _set_initial_slot_value | Class::MOP::Attribute::
257 | 3 | 2 | 4.94ms | 150ms | install_accessors | Class::MOP::Attribute::
499 | 2 | 2 | 3.76ms | 15.5ms | _inline_instance_set | Class::MOP::Attribute::
1001 | 1 | 1 | 3.61ms | 12.5ms | initialize_instance_slot | Class::MOP::Attribute::
309 | 2 | 1 | 2.50ms | 3.06ms | _accessor_description | Class::MOP::Attribute::
181 | 50 | 4 | 2.12ms | 5.07ms | new | Class::MOP::Attribute::
813 | 1 | 1 | 1.72ms | 2.11ms | slots | Class::MOP::Attribute::
496 | 5 | 3 | 1.40ms | 16.9ms | _inline_set_value | Class::MOP::Attribute::
181 | 1 | 1 | 1.12ms | 1.51ms | attach_to_class | Class::MOP::Attribute::
135 | 2 | 2 | 1.05ms | 6.45ms | _inline_instance_get | Class::MOP::Attribute::
123 | 1 | 1 | 1.02ms | 1.59ms | _new | Class::MOP::Attribute::
345 | 3 | 2 | 902µs | 902µs | associate_method | Class::MOP::Attribute::
245 | 2 | 1 | 224µs | 224µs | accessor_metaclass | Class::MOP::Attribute::
75 | 2 | 1 | 219µs | 2.86ms | _inline_get_value | Class::MOP::Attribute::
21 | 2 | 2 | 180µs | 369µs | _inline_instance_has | Class::MOP::Attribute::
36 | 1 | 1 | 122µs | 147µs | get_read_method | Class::MOP::Attribute::
12 | 1 | 1 | 109µs | 265µs | get_raw_value | Class::MOP::Attribute::
12 | 1 | 1 | 103µs | 252µs | has_value | Class::MOP::Attribute::
7 | 1 | 1 | 61µs | 208µs | set_initial_value | Class::MOP::Attribute::
18 | 1 | 1 | 56µs | 370µs | _inline_has_value | Class::MOP::Attribute::
2 | 1 | 1 | 26µs | 47µs | _inline_instance_clear | Class::MOP::Attribute::
12 | 1 | 1 | 26µs | 291µs | get_value | Class::MOP::Attribute::
2 | 1 | 1 | 14µs | 61µs | _inline_clear_value | Class::MOP::Attribute::
1 | 1 | 1 | 9µs | 9µs | BEGIN@3 | Class::MOP::Attribute::
1 | 1 | 1 | 8µs | 11µs | BEGIN@10 | Class::MOP::Attribute::
1 | 1 | 1 | 7µs | 36µs | BEGIN@17 | Class::MOP::Attribute::
1 | 1 | 1 | 7µs | 12µs | BEGIN@11 | Class::MOP::Attribute::
1 | 1 | 1 | 7µs | 34µs | BEGIN@16 | Class::MOP::Attribute::
1 | 1 | 1 | 7µs | 72µs | BEGIN@19 | Class::MOP::Attribute::
1 | 1 | 1 | 6µs | 34µs | BEGIN@15 | Class::MOP::Attribute::
1 | 1 | 1 | 4µs | 4µs | BEGIN@13 | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | __ANON__[:169] | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | __ANON__[:198] | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | __ANON__[:218] | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | __ANON__[:398] | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | __ANON__[:401] | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | __ANON__[:456] | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | _make_initializer_writer_callback | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | clear_value | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | detach_from_class | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | get_read_method_ref | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | get_write_method | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | get_write_method_ref | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | remove_accessors | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | set_raw_value | Class::MOP::Attribute::
0 | 0 | 0 | 0s | 0s | set_value | Class::MOP::Attribute::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | |||||
2 | package 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 | ||||
4 | 1 | 5µs | $Class::MOP::Attribute::AUTHORITY = 'cpan:STEVAN'; | ||
5 | 1 | 31µs | 1 | 9µs | } # spent 9µs making 1 call to Class::MOP::Attribute::BEGIN@3 |
6 | { | ||||
7 | 2 | 1µs | $Class::MOP::Attribute::VERSION = '2.1005'; | ||
8 | } | ||||
9 | |||||
10 | 2 | 23µs | 2 | 14µ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 # spent 11µs making 1 call to Class::MOP::Attribute::BEGIN@10
# spent 3µs making 1 call to strict::import |
11 | 2 | 22µs | 2 | 18µ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 # spent 12µs making 1 call to Class::MOP::Attribute::BEGIN@11
# spent 5µs making 1 call to warnings::import |
12 | |||||
13 | 2 | 22µs | 1 | 4µ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 # spent 4µs making 1 call to Class::MOP::Attribute::BEGIN@13 |
14 | |||||
15 | 2 | 26µs | 2 | 63µ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 # spent 34µs making 1 call to Class::MOP::Attribute::BEGIN@15
# spent 28µs making 1 call to Exporter::import |
16 | 2 | 22µs | 2 | 61µ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 # spent 34µs making 1 call to Class::MOP::Attribute::BEGIN@16
# spent 27µs making 1 call to Exporter::import |
17 | 2 | 26µs | 2 | 66µ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 # spent 36µs making 1 call to Class::MOP::Attribute::BEGIN@17
# spent 29µs making 1 call to Exporter::import |
18 | |||||
19 | 2 | 1.91ms | 2 | 138µ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 # 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 | ||||
31 | 181 | 288µs | my ( $class, @args ) = @_; | ||
32 | |||||
33 | 181 | 234µs | unshift @args, "name" if @args % 2 == 1; | ||
34 | 181 | 346µs | my %options = @args; | ||
35 | |||||
36 | 181 | 96µs | my $name = $options{name}; | ||
37 | |||||
38 | 181 | 38µs | (defined $name) | ||
39 | || confess "You must provide a name for the attribute"; | ||||
40 | |||||
41 | 181 | 134µs | $options{init_arg} = $name | ||
42 | if not exists $options{init_arg}; | ||||
43 | 181 | 86µs | if(exists $options{builder}){ | ||
44 | 4 | 5µs | confess("builder must be a defined scalar value which is a method name") | ||
45 | if ref $options{builder} || !(defined $options{builder}); | ||||
46 | 4 | 2µs | confess("Setting both default and builder is not allowed.") | ||
47 | if exists $options{default}; | ||||
48 | } else { | ||||
49 | 177 | 120µs | 29 | 75µ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 | 181 | 54µs | 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 | |||||
58 | 181 | 639µs | 181 | 2.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 | ||||
62 | 123 | 35µs | my $class = shift; | ||
63 | |||||
64 | 123 | 38µs | 2 | 572µ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 | 122 | 51µs | my $options = @_ == 1 ? $_[0] : {@_}; | ||
68 | |||||
69 | 122 | 1.01ms | 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. | ||||
101 | sub 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 | ||||
110 | 1001 | 403µs | my ($self, $meta_instance, $instance, $params) = @_; | ||
111 | 1001 | 340µs | 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) | ||||
117 | 1001 | 1.80ms | if(defined $init_arg and exists $params->{$init_arg}){ | ||
118 | 643 | 628µs | 643 | 6.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'}) { | ||||
125 | 170 | 306µs | 340 | 2.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 | ||||
146 | 820 | 348µs | my ($self, $meta_instance, $instance, $value) = @_; | ||
147 | |||||
148 | 820 | 1.83ms | 820 | 448µs | my $slot_name = $self->name; # spent 448µs making 820 calls to Class::MOP::Mixin::AttributeCore::name, avg 547ns/call |
149 | |||||
150 | 820 | 2.54ms | 1640 | 2.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 | |||||
163 | sub _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 | ||||
173 | 36 | 9µs | my $self = shift; | ||
174 | 36 | 98µs | 36 | 25µ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 | 36 | 66µs | return $reader unless ref $reader; | ||
177 | # the HASH ref case | ||||
178 | my ($name) = %$reader; | ||||
179 | return $name; | ||||
180 | } | ||||
181 | |||||
182 | sub 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 | |||||
192 | sub 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 | |||||
212 | sub 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 | |||||
234 | 813 | 2.54ms | 813 | 388µ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 # 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 | ||||
239 | 181 | 50µs | my ($self, $class) = @_; | ||
240 | 181 | 790µs | 362 | 213µ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)"; | ||||
242 | 181 | 798µs | 181 | 181µs | weaken($self->{'associated_class'} = $class); # spent 181µs making 181 calls to Scalar::Util::weaken, avg 1µs/call |
243 | } | ||||
244 | |||||
245 | sub 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 | ||||
253 | 345 | 179µs | my ($self, $method) = @_; | ||
254 | 690 | 971µ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 | ||||
260 | 7 | 5µs | my ($self, $instance, $value) = @_; | ||
261 | 7 | 48µs | 21 | 147µ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 | |||||
268 | sub set_value { shift->set_raw_value(@_) } | ||||
269 | |||||
270 | sub 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 | ||||
279 | 496 | 100µs | my $self = shift; | ||
280 | 496 | 1.26ms | 496 | 15.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 | ||||
284 | 499 | 65µs | my $self = shift; | ||
285 | 499 | 193µs | my ($instance, $value) = @_; | ||
286 | |||||
287 | 499 | 1.48ms | 998 | 8.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 |
288 | 499 | 2.25ms | 998 | 3.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 | |||||
291 | 12 | 30µs | 12 | 265µ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 # 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 | ||||
294 | 12 | 2µs | my $self = shift; | ||
295 | 12 | 3µs | my ($instance) = @_; | ||
296 | |||||
297 | 12 | 24µs | 24 | 127µ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 |
298 | 12 | 57µs | 24 | 29µ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 | ||||
302 | 75 | 15µs | my $self = shift; | ||
303 | 75 | 200µs | 75 | 2.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 | ||||
307 | 135 | 24µs | my $self = shift; | ||
308 | 135 | 47µs | my ($instance) = @_; | ||
309 | |||||
310 | 135 | 436µs | 270 | 4.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 |
311 | 135 | 622µs | 270 | 842µ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 | ||||
315 | 12 | 3µs | my $self = shift; | ||
316 | 12 | 4µs | my ($instance) = @_; | ||
317 | |||||
318 | 12 | 24µs | 24 | 118µ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 |
319 | 12 | 63µs | 24 | 31µ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 | ||||
323 | 18 | 5µs | my $self = shift; | ||
324 | 18 | 47µs | 18 | 314µ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 | ||||
328 | 21 | 3µs | my $self = shift; | ||
329 | 21 | 8µs | my ($instance) = @_; | ||
330 | |||||
331 | 21 | 70µs | 42 | 43µ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 |
332 | 21 | 107µs | 42 | 146µ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 | |||||
335 | sub 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 | ||||
344 | 2 | 1µs | my $self = shift; | ||
345 | 2 | 10µs | 2 | 47µ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 | ||||
349 | 2 | 1µs | my $self = shift; | ||
350 | 2 | 1µs | my ($instance) = @_; | ||
351 | |||||
352 | 2 | 9µs | 4 | 4µ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 |
353 | 2 | 19µs | 4 | 17µ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 | |||||
358 | 245 | 419µs | 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 | ||||
361 | 309 | 203µs | my ($self, $type, $accessor, $generate_as_inline_methods) = @_; | ||
362 | |||||
363 | 618 | 1.76ms | 309 | 172µs | my $method_ctx = { %{ $self->definition_context || {} } }; # spent 172µs making 309 calls to Class::MOP::Mixin::AttributeCore::definition_context, avg 557ns/call |
364 | |||||
365 | 309 | 78µs | if (ref($accessor)) { | ||
366 | 57 | 18µs | (ref($accessor) eq 'HASH') | ||
367 | || confess "bad accessor/reader/writer/predicate/clearer format, must be a HASH ref"; | ||||
368 | 114 | 72µs | my ($name, $method) = %{$accessor}; | ||
369 | |||||
370 | 57 | 89µs | 57 | 568µ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 | |||||
372 | 57 | 449µs | 285 | 2.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 | ); | ||||
380 | 57 | 60µs | 57 | 121µs | $self->associate_method($method); # spent 121µs making 57 calls to Class::MOP::Attribute::associate_method, avg 2µs/call |
381 | 57 | 132µs | return ($name, $method); | ||
382 | } | ||||
383 | else { | ||||
384 | 252 | 571µs | 285 | 173µ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 | 252 | 25µs | my $method; | ||
386 | try { | ||||
387 | 252 | 409µs | 252 | 2.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 | |||||
389 | 252 | 2.27ms | 1260 | 31.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 : $_"; | ||||
401 | 252 | 2.64ms | 504 | 32.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 |
402 | 252 | 406µs | 252 | 700µs | $self->associate_method($method); # spent 700µs making 252 calls to Class::MOP::Attribute::associate_method, avg 3µs/call |
403 | 252 | 586µs | 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 | ||||
408 | 309 | 75µs | my $self = shift; | ||
409 | 309 | 155µs | my ($name, $type) = @_; | ||
410 | |||||
411 | 309 | 1.50ms | 618 | 355µ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 |
412 | 309 | 693µs | 309 | 163µs | if ( $name ne $self->name ) { # spent 163µs making 309 calls to Class::MOP::Mixin::AttributeCore::name, avg 527ns/call |
413 | 110 | 240µs | 110 | 46µs | $desc .= " of attribute " . $self->name; # spent 46µs making 110 calls to Class::MOP::Mixin::AttributeCore::name, avg 416ns/call |
414 | } | ||||
415 | |||||
416 | 309 | 634µs | 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 | ||||
420 | 257 | 68µs | my $self = shift; | ||
421 | 257 | 41µs | my $inline = shift; | ||
422 | 257 | 641µs | 257 | 164µs | my $class = $self->associated_class; # spent 164µs making 257 calls to Class::MOP::Attribute::associated_class, avg 639ns/call |
423 | |||||
424 | 257 | 608µs | 482 | 54.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 | |||||
428 | 257 | 1.15ms | 797 | 74.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 | |||||
432 | 257 | 365µs | 281 | 2.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 | |||||
436 | 257 | 458µs | 389 | 11.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 | |||||
440 | 257 | 266µs | 263 | 1.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 | 257 | 495µs | return; | ||
445 | } | ||||
446 | |||||
447 | { | ||||
448 | 1 | 300ns | 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')); | ||||
456 | 1 | 3µ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 | |||||
475 | 1 | 3µs | 1; | ||
476 | |||||
477 | # ABSTRACT: Attribute Meta Object | ||||
478 | |||||
479 | __END__ |