← Index
NYTProf Performance Profile   « line view »
For fastest.pl
  Run on Fri Jan 31 20:48:16 2014
Reported on Fri Jan 31 20:49:40 2014

Filename/opt/perl-5.18.1/lib/site_perl/5.18.1/darwin-thread-multi-2level/Mouse/Meta/Attribute.pm
StatementsExecuted 44 statements in 2.46ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1111.72ms1.78msMouse::Meta::Attribute::::BEGIN@6Mouse::Meta::Attribute::BEGIN@6
11144µs155µsMouse::Meta::Attribute::::install_accessorsMouse::Meta::Attribute::install_accessors
11127µs69µsMouse::Meta::Attribute::::newMouse::Meta::Attribute::new
11116µs62µsMouse::Meta::Attribute::::BEGIN@2Mouse::Meta::Attribute::BEGIN@2
11114µs30µsMouse::Meta::Attribute::::_process_optionsMouse::Meta::Attribute::_process_options (xsub)
1116µs6µsMouse::Meta::Attribute::::interpolate_classMouse::Meta::Attribute::interpolate_class
1115µs5µsMouse::Meta::Attribute::::BEGIN@4Mouse::Meta::Attribute::BEGIN@4
1114µs4µsMouse::Meta::Attribute::::associate_methodMouse::Meta::Attribute::associate_method
2222µs2µsMouse::Meta::Attribute::::nameMouse::Meta::Attribute::name (xsub)
111800ns800nsMouse::Meta::Attribute::::accessor_metaclassMouse::Meta::Attribute::accessor_metaclass (xsub)
111800ns800nsMouse::Meta::Attribute::::has_type_constraintMouse::Meta::Attribute::has_type_constraint (xsub)
111800ns800nsMouse::Meta::Attribute::::should_coerceMouse::Meta::Attribute::should_coerce (xsub)
111700ns700nsMouse::Meta::Attribute::::associated_classMouse::Meta::Attribute::associated_class (xsub)
111700ns700nsMouse::Meta::Attribute::::has_builderMouse::Meta::Attribute::has_builder (xsub)
111700ns700nsMouse::Meta::Attribute::::should_auto_derefMouse::Meta::Attribute::should_auto_deref (xsub)
111700ns700nsMouse::Meta::Attribute::::type_constraintMouse::Meta::Attribute::type_constraint (xsub)
111600ns600nsMouse::Meta::Attribute::::has_defaultMouse::Meta::Attribute::has_default (xsub)
111600ns600nsMouse::Meta::Attribute::::has_triggerMouse::Meta::Attribute::has_trigger (xsub)
111600ns600nsMouse::Meta::Attribute::::init_argMouse::Meta::Attribute::init_arg (xsub)
111600ns600nsMouse::Meta::Attribute::::is_lazyMouse::Meta::Attribute::is_lazy (xsub)
111600ns600nsMouse::Meta::Attribute::::is_weak_refMouse::Meta::Attribute::is_weak_ref (xsub)
111500ns500nsMouse::Meta::Attribute::::is_requiredMouse::Meta::Attribute::is_required (xsub)
0000s0sMouse::Meta::Attribute::::_canonicalize_handlesMouse::Meta::Attribute::_canonicalize_handles
0000s0sMouse::Meta::Attribute::::_find_delegate_metaclassMouse::Meta::Attribute::_find_delegate_metaclass
0000s0sMouse::Meta::Attribute::::_get_accessor_method_refMouse::Meta::Attribute::_get_accessor_method_ref
0000s0sMouse::Meta::Attribute::::_make_delegation_methodMouse::Meta::Attribute::_make_delegation_method
0000s0sMouse::Meta::Attribute::::_throw_type_constraint_errorMouse::Meta::Attribute::_throw_type_constraint_error
0000s0sMouse::Meta::Attribute::::clear_valueMouse::Meta::Attribute::clear_value
0000s0sMouse::Meta::Attribute::::clone_and_inherit_optionsMouse::Meta::Attribute::clone_and_inherit_options
0000s0sMouse::Meta::Attribute::::get_read_methodMouse::Meta::Attribute::get_read_method
0000s0sMouse::Meta::Attribute::::get_read_method_refMouse::Meta::Attribute::get_read_method_ref
0000s0sMouse::Meta::Attribute::::get_valueMouse::Meta::Attribute::get_value
0000s0sMouse::Meta::Attribute::::get_write_methodMouse::Meta::Attribute::get_write_method
0000s0sMouse::Meta::Attribute::::get_write_method_refMouse::Meta::Attribute::get_write_method_ref
0000s0sMouse::Meta::Attribute::::has_read_methodMouse::Meta::Attribute::has_read_method
0000s0sMouse::Meta::Attribute::::has_valueMouse::Meta::Attribute::has_value
0000s0sMouse::Meta::Attribute::::has_write_methodMouse::Meta::Attribute::has_write_method
0000s0sMouse::Meta::Attribute::::illegal_options_for_inheritanceMouse::Meta::Attribute::illegal_options_for_inheritance
0000s0sMouse::Meta::Attribute::::set_valueMouse::Meta::Attribute::set_value
0000s0sMouse::Meta::Attribute::::verify_against_type_constraintMouse::Meta::Attribute::verify_against_type_constraint
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Mouse::Meta::Attribute;
2234µs2108µs
# spent 62µs (16+46) within Mouse::Meta::Attribute::BEGIN@2 which was called: # once (16µs+46µs) by Mouse::BEGIN@16 at line 2
use Mouse::Util qw(:meta); # enables strict and warnings
# spent 62µs making 1 call to Mouse::Meta::Attribute::BEGIN@2 # spent 46µs making 1 call to Mouse::Exporter::do_import
3
4236µs15µs
# spent 5µs within Mouse::Meta::Attribute::BEGIN@4 which was called: # once (5µs+0s) by Mouse::BEGIN@16 at line 4
use Carp ();
# spent 5µs making 1 call to Mouse::Meta::Attribute::BEGIN@4
5
622.14ms11.78ms
# spent 1.78ms (1.72+61µs) within Mouse::Meta::Attribute::BEGIN@6 which was called: # once (1.72ms+61µs) by Mouse::BEGIN@16 at line 6
use Mouse::Meta::TypeConstraint;
# spent 1.78ms making 1 call to Mouse::Meta::Attribute::BEGIN@6
7
8123µsmy %valid_options = map { $_ => undef } (
9 'accessor',
10 'auto_deref',
11 'builder',
12 'clearer',
13 'coerce',
14 'default',
15 'documentation',
16 'does',
17 'handles',
18 'init_arg',
19 'insertion_order',
20 'is',
21 'isa',
22 'lazy',
23 'lazy_build',
24 'name',
25 'predicate',
26 'reader',
27 'required',
28 'traits',
29 'trigger',
30 'type_constraint',
31 'weak_ref',
32 'writer',
33
34 # internally used
35 'associated_class',
36 'associated_methods',
37 '__METACLASS__',
38
39 # Moose defines, but Mouse doesn't
40 #'definition_context',
41 #'initializer',
42
43 # special case for AttributeHelpers
44 'provides',
45 'curries',
46);
47
481900nsour @CARP_NOT = qw(Mouse::Meta::Class);
49
50
# spent 69µs (27+42) within Mouse::Meta::Attribute::new which was called: # once (27µs+42µs) by Mouse::Meta::Class::add_attribute at line 234 of Mouse/Meta/Class.pm
sub new {
511500ns my $class = shift;
521400ns my $name = shift;
53
54120µs112µs my $args = $class->Mouse::Object::BUILDARGS(@_);
# spent 12µs making 1 call to Mouse::Object::BUILDARGS
55
56118µs247µs $class->_process_options($name, $args);
57
5811µs $args->{name} = $name;
59
60 # check options
61 # (1) known by core
6215µs my @bad = grep{ !exists $valid_options{$_} } keys %{$args};
63
64 # (2) known by subclasses
651400ns if(@bad && $class ne __PACKAGE__){
66 my %valid_attrs = (
67 map { $_ => undef }
68 grep { defined }
69 map { $_->init_arg() }
70 $class->meta->get_all_attributes()
71 );
72 @bad = grep{ !exists $valid_attrs{$_} } @bad;
73 }
74
75 # (3) bad options found
761200ns if(@bad){
77 Carp::carp(
78 "Found unknown argument(s) passed to '$name' attribute constructor in '$class': "
79 . Mouse::Util::english_list(@bad));
80 }
81
8211µs my $self = bless $args, $class;
831700ns if($class ne __PACKAGE__){
84 $class->meta->_initialize_object($self, $args);
85 }
8615µs return $self;
87}
88
89sub has_read_method { $_[0]->has_reader || $_[0]->has_accessor }
90sub has_write_method { $_[0]->has_writer || $_[0]->has_accessor }
91
92sub get_read_method { $_[0]->reader || $_[0]->accessor }
93sub get_write_method { $_[0]->writer || $_[0]->accessor }
94
95sub get_read_method_ref{
96 my($self) = @_;
97 return $self->{_mouse_cache_read_method_ref}
98 ||= $self->_get_accessor_method_ref('get_read_method', '_generate_reader');
99}
100
101sub get_write_method_ref{
102 my($self) = @_;
103 return $self->{_mouse_cache_write_method_ref}
104 ||= $self->_get_accessor_method_ref('get_write_method', '_generate_writer');
105}
106
107
# spent 6µs within Mouse::Meta::Attribute::interpolate_class which was called: # once (6µs+0s) by Mouse::Meta::Class::add_attribute at line 231 of Mouse/Meta/Class.pm
sub interpolate_class{
1081600ns my($class, $args) = @_;
109
11011µs if(my $metaclass = delete $args->{metaclass}){
111 $class = Mouse::Util::resolve_metaclass_alias( Attribute => $metaclass );
112 }
113
1141200ns my @traits;
1151700ns if(my $traits_ref = delete $args->{traits}){
116
117 for (my $i = 0; $i < @{$traits_ref}; $i++) {
118 my $trait = Mouse::Util::resolve_metaclass_alias(Attribute => $traits_ref->[$i], trait => 1);
119
120 next if $class->does($trait);
121
122 push @traits, $trait;
123
124 # are there options?
125 push @traits, $traits_ref->[++$i]
126 if ref($traits_ref->[$i+1]);
127 }
128
129 if (@traits) {
130 $class = Mouse::Meta::Class->create_anon_class(
131 superclasses => [ $class ],
132 roles => \@traits,
133 cache => 1,
134 )->name;
135 }
136 }
137
13815µs return( $class, @traits );
139}
140
141sub verify_against_type_constraint {
142 my ($self, $value) = @_;
143
144 my $type_constraint = $self->{type_constraint};
145 return 1 if !$type_constraint;
146 return 1 if $type_constraint->check($value);
147
148 $self->_throw_type_constraint_error($value, $type_constraint);
149}
150
151sub _throw_type_constraint_error {
152 my($self, $value, $type) = @_;
153
154 $self->throw_error(
155 sprintf q{Attribute (%s) does not pass the type constraint because: %s},
156 $self->name,
157 $type->get_message($value),
158 );
159}
160
161sub illegal_options_for_inheritance {
162 return qw(reader writer accessor clearer predicate);
163}
164
165sub clone_and_inherit_options{
166 my $self = shift;
167 my $args = $self->Mouse::Object::BUILDARGS(@_);
168
169 foreach my $illegal($self->illegal_options_for_inheritance) {
170 if(exists $args->{$illegal} and exists $self->{$illegal}) {
171 $self->throw_error("Illegal inherited option: $illegal");
172 }
173 }
174
175 foreach my $name(keys %{$self}){
176 if(!exists $args->{$name}){
177 $args->{$name} = $self->{$name}; # inherit from self
178 }
179 }
180
181 my($attribute_class, @traits) = ref($self)->interpolate_class($args);
182 $args->{traits} = \@traits if @traits;
183
184 # remove temporary caches
185 foreach my $attr(keys %{$args}){
186 if($attr =~ /\A _mouse_cache_/xms){
187 delete $args->{$attr};
188 }
189 }
190
191 # remove default if lazy_build => 1
192 if($args->{lazy_build}) {
193 delete $args->{default};
194 }
195
196 return $attribute_class->new($self->name, $args);
197}
198
199
200sub _get_accessor_method_ref {
201 my($self, $type, $generator) = @_;
202
203 my $metaclass = $self->associated_class
204 || $self->throw_error('No asocciated class for ' . $self->name);
205
206 my $accessor = $self->$type();
207 if($accessor){
208 return $metaclass->get_method_body($accessor);
209 }
210 else{
211 return $self->accessor_metaclass->$generator($self, $metaclass);
212 }
213}
214
215sub set_value {
216 my($self, $object, $value) = @_;
217 return $self->get_write_method_ref()->($object, $value);
218}
219
220sub get_value {
221 my($self, $object) = @_;
222 return $self->get_read_method_ref()->($object);
223}
224
225sub has_value {
226 my($self, $object) = @_;
227 my $accessor_ref = $self->{_mouse_cache_predicate_ref}
228 ||= $self->_get_accessor_method_ref('predicate', '_generate_predicate');
229
230 return $accessor_ref->($object);
231}
232
233sub clear_value {
234 my($self, $object) = @_;
235 my $accessor_ref = $self->{_mouse_cache_crealer_ref}
236 ||= $self->_get_accessor_method_ref('clearer', '_generate_clearer');
237
238 return $accessor_ref->($object);
239}
240
241
# spent 4µs within Mouse::Meta::Attribute::associate_method which was called: # once (4µs+0s) by Mouse::Meta::Attribute::install_accessors at line 266
sub associate_method{
242 #my($attribute, $method_name) = @_;
2431500ns my($attribute) = @_;
24412µs $attribute->{associated_methods}++;
24514µs return;
246}
247
248
# spent 155µs (44+111) within Mouse::Meta::Attribute::install_accessors which was called: # once (44µs+111µs) by Mouse::Meta::Class::add_attribute at line 241 of Mouse/Meta/Class.pm
sub install_accessors{
2491400ns my($attribute) = @_;
250
25116µs1700ns my $metaclass = $attribute->associated_class;
# spent 700ns making 1 call to Mouse::Meta::Attribute::associated_class
25216µs1800ns my $accessor_class = $attribute->accessor_metaclass;
# spent 800ns making 1 call to Mouse::Meta::Attribute::accessor_metaclass
253
25411µs foreach my $type(qw(accessor reader writer predicate clearer)){
25553µs if(exists $attribute->{$type}){
25611µs my $generator = '_generate_' . $type;
2571108µs13104µs my $code = $accessor_class->$generator($attribute, $metaclass);
# spent 96µs making 1 call to Mouse::Meta::Method::Accessor::XS::_generate_accessor # spent 800ns making 1 call to Mouse::Meta::Attribute::has_type_constraint # spent 800ns making 1 call to Mouse::Meta::Attribute::name # spent 800ns making 1 call to Mouse::Meta::Attribute::should_coerce # spent 700ns making 1 call to Mouse::Meta::Attribute::has_builder # spent 700ns making 1 call to Mouse::Meta::Attribute::should_auto_deref # spent 700ns making 1 call to Mouse::Meta::Attribute::type_constraint # spent 600ns making 1 call to Mouse::Meta::Attribute::has_default # spent 600ns making 1 call to Mouse::Meta::Attribute::has_trigger # spent 600ns making 1 call to Mouse::Meta::Attribute::init_arg # spent 600ns making 1 call to Mouse::Meta::Attribute::is_lazy # spent 600ns making 1 call to Mouse::Meta::Attribute::is_weak_ref # spent 500ns making 1 call to Mouse::Meta::Attribute::is_required
25811µs my $name = $attribute->{$type};
259# TODO: do something for compatibility
260# if( $metaclass->name->can($name) ) {
261# my $t = $metaclass->has_method($name) ? 'method' : 'function';
262# Carp::cluck("You are overwriting a locally defined $t"
263# . " ($name) with an accessor");
264# }
265114µs19µs $metaclass->add_method($name => $code);
# spent 9µs making 1 call to Mouse::Meta::Module::add_method
26612µs14µs $attribute->associate_method($name);
# spent 4µs making 1 call to Mouse::Meta::Attribute::associate_method
267 }
268 }
269
270 # install delegation
2711500ns if(exists $attribute->{handles}){
272 my %handles = $attribute->_canonicalize_handles();
273 while(my($handle, $method_to_call) = each %handles){
274 next if Mouse::Object->can($handle);
275
276 if($metaclass->has_method($handle)) {
277 $attribute->throw_error("You cannot overwrite a locally defined method ($handle) with a delegation");
278 }
279
280 $metaclass->add_method($handle =>
281 $attribute->_make_delegation_method(
282 $handle, $method_to_call));
283
284 $attribute->associate_method($handle);
285 }
286 }
287
28814µs return;
289}
290
291sub delegation_metaclass() { ## no critic
292 'Mouse::Meta::Method::Delegation'
293}
294
295sub _canonicalize_handles {
296 my($self) = @_;
297 my $handles = $self->{handles};
298
299 my $handle_type = ref $handles;
300 if ($handle_type eq 'HASH') {
301 return %$handles;
302 }
303 elsif ($handle_type eq 'ARRAY') {
304 return map { $_ => $_ } @$handles;
305 }
306 elsif ($handle_type eq 'Regexp') {
307 my $meta = $self->_find_delegate_metaclass();
308 return map { $_ => $_ }
309 grep { /$handles/ }
310 Mouse::Util::is_a_metarole($meta)
311 ? $meta->get_method_list
312 : $meta->get_all_method_names;
313 }
314 elsif ($handle_type eq 'CODE') {
315 return $handles->( $self, $self->_find_delegate_metaclass() );
316 }
317 else {
318 $self->throw_error("Unable to canonicalize the 'handles' option with $handles");
319 }
320}
321
322sub _find_delegate_metaclass {
323 my($self) = @_;
324 my $meta;
325 if($self->{isa}) {
326 $meta = Mouse::Meta::Class->initialize("$self->{isa}");
327 }
328 elsif($self->{does}) {
329 $meta = Mouse::Util::get_metaclass_by_name("$self->{does}");
330 }
331 defined($meta) or $self->throw_error(
332 "Cannot find delegate metaclass for attribute " . $self->name);
333 return $meta;
334}
335
336
337sub _make_delegation_method {
338 my($self, $handle, $method_to_call) = @_;
339 return Mouse::Util::load_class($self->delegation_metaclass)
340 ->_generate_delegation($self, $handle, $method_to_call);
341}
342
343110µs1;
344__END__
 
# spent 30µs (14+16) within Mouse::Meta::Attribute::_process_options which was called: # once (14µs+16µs) by Mouse::Meta::Attribute::new at line 56
sub Mouse::Meta::Attribute::_process_options; # xsub
# spent 800ns within Mouse::Meta::Attribute::accessor_metaclass which was called: # once (800ns+0s) by Mouse::Meta::Attribute::install_accessors at line 252
sub Mouse::Meta::Attribute::accessor_metaclass; # xsub
# spent 700ns within Mouse::Meta::Attribute::associated_class which was called: # once (700ns+0s) by Mouse::Meta::Attribute::install_accessors at line 251
sub Mouse::Meta::Attribute::associated_class; # xsub
# spent 700ns within Mouse::Meta::Attribute::has_builder which was called: # once (700ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::has_builder; # xsub
# spent 600ns within Mouse::Meta::Attribute::has_default which was called: # once (600ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::has_default; # xsub
# spent 600ns within Mouse::Meta::Attribute::has_trigger which was called: # once (600ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::has_trigger; # xsub
# spent 800ns within Mouse::Meta::Attribute::has_type_constraint which was called: # once (800ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::has_type_constraint; # xsub
# spent 600ns within Mouse::Meta::Attribute::init_arg which was called: # once (600ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::init_arg; # xsub
# spent 600ns within Mouse::Meta::Attribute::is_lazy which was called: # once (600ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::is_lazy; # xsub
# spent 500ns within Mouse::Meta::Attribute::is_required which was called: # once (500ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::is_required; # xsub
# spent 600ns within Mouse::Meta::Attribute::is_weak_ref which was called: # once (600ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::is_weak_ref; # xsub
# spent 2µs within Mouse::Meta::Attribute::name which was called 2 times, avg 800ns/call: # once (800ns+0s) by Mouse::Meta::Class::_calculate_all_attributes at line 261 of Mouse/Meta/Class.pm # once (800ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::name; # xsub
# spent 700ns within Mouse::Meta::Attribute::should_auto_deref which was called: # once (700ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::should_auto_deref; # xsub
# spent 800ns within Mouse::Meta::Attribute::should_coerce which was called: # once (800ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::should_coerce; # xsub
# spent 700ns within Mouse::Meta::Attribute::type_constraint which was called: # once (700ns+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor at line 257
sub Mouse::Meta::Attribute::type_constraint; # xsub