| Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/x86_64-linux/Mouse/Meta/Attribute.pm |
| Statements | Executed 1359 statements in 8.26ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 36 | 1 | 1 | 1.81ms | 5.21ms | Mouse::Meta::Attribute::install_accessors |
| 1 | 1 | 1 | 1.12ms | 1.23ms | Mouse::Meta::Attribute::BEGIN@6 |
| 36 | 1 | 1 | 945µs | 4.44ms | Mouse::Meta::Attribute::new |
| 36 | 1 | 1 | 378µs | 3.38ms | Mouse::Meta::Attribute::_process_options (xsub) |
| 36 | 1 | 1 | 295µs | 295µs | Mouse::Meta::Attribute::interpolate_class |
| 54 | 1 | 1 | 284µs | 284µs | Mouse::Meta::Attribute::associate_method |
| 90 | 2 | 2 | 132µs | 132µs | Mouse::Meta::Attribute::name (xsub) |
| 36 | 1 | 1 | 55µs | 55µs | Mouse::Meta::Attribute::has_type_constraint (xsub) |
| 36 | 1 | 1 | 53µs | 53µs | Mouse::Meta::Attribute::has_trigger (xsub) |
| 36 | 1 | 1 | 52µs | 52µs | Mouse::Meta::Attribute::init_arg (xsub) |
| 36 | 1 | 1 | 51µs | 51µs | Mouse::Meta::Attribute::is_required (xsub) |
| 36 | 1 | 1 | 51µs | 51µs | Mouse::Meta::Attribute::has_builder (xsub) |
| 35 | 1 | 1 | 51µs | 51µs | Mouse::Meta::Attribute::should_coerce (xsub) |
| 36 | 1 | 1 | 51µs | 51µs | Mouse::Meta::Attribute::accessor_metaclass (xsub) |
| 35 | 1 | 1 | 50µs | 50µs | Mouse::Meta::Attribute::should_auto_deref (xsub) |
| 36 | 1 | 1 | 50µs | 50µs | Mouse::Meta::Attribute::associated_class (xsub) |
| 36 | 1 | 1 | 50µs | 50µs | Mouse::Meta::Attribute::is_lazy (xsub) |
| 35 | 1 | 1 | 49µs | 49µs | Mouse::Meta::Attribute::type_constraint (xsub) |
| 36 | 1 | 1 | 48µs | 48µs | Mouse::Meta::Attribute::is_weak_ref (xsub) |
| 27 | 1 | 1 | 36µs | 36µs | Mouse::Meta::Attribute::has_default (xsub) |
| 1 | 1 | 1 | 25µs | 105µs | Mouse::Meta::Attribute::BEGIN@2 |
| 14 | 3 | 3 | 20µs | 20µs | Mouse::Meta::Attribute::default (xsub) |
| 8 | 8 | 3 | 13µs | 13µs | Mouse::Meta::Attribute::builder (xsub) |
| 1 | 1 | 1 | 7µs | 7µs | Mouse::Meta::Attribute::BEGIN@4 |
| 1 | 1 | 1 | 1µs | 1µs | Mouse::Meta::Attribute::trigger (xsub) |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::_canonicalize_handles |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::_find_delegate_metaclass |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::_get_accessor_method_ref |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::_make_delegation_method |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::_throw_type_constraint_error |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::clear_value |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::clone_and_inherit_options |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::get_read_method |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::get_read_method_ref |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::get_value |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::get_write_method |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::get_write_method_ref |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::has_read_method |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::has_value |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::has_write_method |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::illegal_options_for_inheritance |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::set_value |
| 0 | 0 | 0 | 0s | 0s | Mouse::Meta::Attribute::verify_against_type_constraint |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Mouse::Meta::Attribute; | ||||
| 2 | 2 | 31µs | 2 | 185µs | # spent 105µs (25+80) within Mouse::Meta::Attribute::BEGIN@2 which was called:
# once (25µs+80µs) by Mouse::BEGIN@16 at line 2 # spent 105µs making 1 call to Mouse::Meta::Attribute::BEGIN@2
# spent 80µs making 1 call to Mouse::Exporter::do_import |
| 3 | |||||
| 4 | 2 | 23µs | 1 | 7µs | # spent 7µs within Mouse::Meta::Attribute::BEGIN@4 which was called:
# once (7µs+0s) by Mouse::BEGIN@16 at line 4 # spent 7µs making 1 call to Mouse::Meta::Attribute::BEGIN@4 |
| 5 | |||||
| 6 | 2 | 1.46ms | 1 | 1.23ms | # spent 1.23ms (1.12+111µs) within Mouse::Meta::Attribute::BEGIN@6 which was called:
# once (1.12ms+111µs) by Mouse::BEGIN@16 at line 6 # spent 1.23ms making 1 call to Mouse::Meta::Attribute::BEGIN@6 |
| 7 | |||||
| 8 | 1 | 25µs | my %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 | |||||
| 48 | 1 | 2µs | our @CARP_NOT = qw(Mouse::Meta::Class); | ||
| 49 | |||||
| 50 | # spent 4.44ms (945µs+3.49) within Mouse::Meta::Attribute::new which was called 36 times, avg 123µs/call:
# 36 times (945µs+3.49ms) by Mouse::Meta::Class::add_attribute at line 232 of Mouse/Meta/Class.pm, avg 123µs/call | ||||
| 51 | 396 | 1.20ms | my $class = shift; | ||
| 52 | my $name = shift; | ||||
| 53 | |||||
| 54 | 36 | 109µs | my $args = $class->Mouse::Object::BUILDARGS(@_); # spent 109µs making 36 calls to Mouse::Object::BUILDARGS, avg 3µs/call | ||
| 55 | |||||
| 56 | 1 | 223µs | 78 | 6.39ms | $class->_process_options($name, $args); # spent 3.38ms making 36 calls to Mouse::Meta::Attribute::_process_options, avg 94µs/call
# spent 1.78ms making 31 calls to Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint, avg 57µs/call
# spent 896µs making 4 calls to Mouse::Util::TypeConstraints::find_or_create_does_type_constraint, avg 224µs/call
# spent 326µs making 7 calls to Mouse::Meta::TypeConstraint::is_a_type_of, avg 47µs/call |
| 57 | |||||
| 58 | $args->{name} = $name; | ||||
| 59 | |||||
| 60 | # check options | ||||
| 61 | # (1) known by core | ||||
| 62 | my @bad = grep{ !exists $valid_options{$_} } keys %{$args}; | ||||
| 63 | |||||
| 64 | # (2) known by subclasses | ||||
| 65 | 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 | ||||
| 76 | 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 | |||||
| 82 | my $self = bless $args, $class; | ||||
| 83 | if($class ne __PACKAGE__){ | ||||
| 84 | $class->meta->_initialize_object($self, $args); | ||||
| 85 | } | ||||
| 86 | return $self; | ||||
| 87 | } | ||||
| 88 | |||||
| 89 | sub has_read_method { $_[0]->has_reader || $_[0]->has_accessor } | ||||
| 90 | sub has_write_method { $_[0]->has_writer || $_[0]->has_accessor } | ||||
| 91 | |||||
| 92 | sub get_read_method { $_[0]->reader || $_[0]->accessor } | ||||
| 93 | sub get_write_method { $_[0]->writer || $_[0]->accessor } | ||||
| 94 | |||||
| 95 | sub 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 | |||||
| 101 | sub 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 295µs within Mouse::Meta::Attribute::interpolate_class which was called 36 times, avg 8µs/call:
# 36 times (295µs+0s) by Mouse::Meta::Class::add_attribute at line 229 of Mouse/Meta/Class.pm, avg 8µs/call | ||||
| 108 | 180 | 332µs | my($class, $args) = @_; | ||
| 109 | |||||
| 110 | if(my $metaclass = delete $args->{metaclass}){ | ||||
| 111 | $class = Mouse::Util::resolve_metaclass_alias( Attribute => $metaclass ); | ||||
| 112 | } | ||||
| 113 | |||||
| 114 | my @traits; | ||||
| 115 | 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 | |||||
| 138 | return( $class, @traits ); | ||||
| 139 | } | ||||
| 140 | |||||
| 141 | sub 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 | |||||
| 151 | sub _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 | |||||
| 161 | sub illegal_options_for_inheritance { | ||||
| 162 | return qw(reader writer accessor clearer predicate); | ||||
| 163 | } | ||||
| 164 | |||||
| 165 | sub 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 | |||||
| 200 | sub _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 | |||||
| 215 | sub set_value { | ||||
| 216 | my($self, $object, $value) = @_; | ||||
| 217 | return $self->get_write_method_ref()->($object, $value); | ||||
| 218 | } | ||||
| 219 | |||||
| 220 | sub get_value { | ||||
| 221 | my($self, $object) = @_; | ||||
| 222 | return $self->get_read_method_ref()->($object); | ||||
| 223 | } | ||||
| 224 | |||||
| 225 | sub 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 | |||||
| 233 | sub 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 284µs within Mouse::Meta::Attribute::associate_method which was called 54 times, avg 5µs/call:
# 54 times (284µs+0s) by Mouse::Meta::Attribute::install_accessors at line 259, avg 5µs/call | ||||
| 242 | #my($attribute, $method_name) = @_; | ||||
| 243 | 162 | 331µs | my($attribute) = @_; | ||
| 244 | $attribute->{associated_methods}++; | ||||
| 245 | return; | ||||
| 246 | } | ||||
| 247 | |||||
| 248 | # spent 5.21ms (1.81+3.40) within Mouse::Meta::Attribute::install_accessors which was called 36 times, avg 145µs/call:
# 36 times (1.81ms+3.40ms) by Mouse::Meta::Class::add_attribute at line 239 of Mouse/Meta/Class.pm, avg 145µs/call | ||||
| 249 | 216 | 653µs | my($attribute) = @_; | ||
| 250 | |||||
| 251 | 36 | 50µs | my $metaclass = $attribute->associated_class; # spent 50µs making 36 calls to Mouse::Meta::Attribute::associated_class, avg 1µs/call | ||
| 252 | 36 | 51µs | my $accessor_class = $attribute->accessor_metaclass; # spent 51µs making 36 calls to Mouse::Meta::Attribute::accessor_metaclass, avg 1µs/call | ||
| 253 | |||||
| 254 | foreach my $type(qw(accessor reader writer predicate clearer)){ | ||||
| 255 | 396 | 3.80ms | if(exists $attribute->{$type}){ | ||
| 256 | my $generator = '_generate_' . $type; | ||||
| 257 | 1 | 165µs | 499 | 3.59ms | my $code = $accessor_class->$generator($attribute, $metaclass); # spent 1.38ms making 18 calls to Mouse::Meta::Method::Accessor::XS::_generate_reader, avg 77µs/call
# spent 1.16ms making 18 calls to Mouse::Meta::Method::Accessor::XS::_generate_accessor, avg 64µs/call
# spent 275µs making 7 calls to Mouse::Meta::TypeConstraint::is_a_type_of, avg 39µs/call
# spent 80µs making 54 calls to Mouse::Meta::Attribute::name, avg 1µs/call
# spent 78µs making 9 calls to Mouse::Meta::Method::Accessor::XS::_generate_predicate, avg 9µs/call
# spent 68µs making 9 calls to Mouse::Meta::Method::Accessor::XS::_generate_clearer, avg 8µs/call
# spent 55µs making 36 calls to Mouse::Meta::Attribute::has_type_constraint, avg 2µs/call
# spent 53µs making 36 calls to Mouse::Meta::Attribute::has_trigger, avg 1µs/call
# spent 52µs making 36 calls to Mouse::Meta::Attribute::init_arg, avg 1µs/call
# spent 51µs making 36 calls to Mouse::Meta::Attribute::is_required, avg 1µs/call
# spent 51µs making 36 calls to Mouse::Meta::Attribute::has_builder, avg 1µs/call
# spent 51µs making 35 calls to Mouse::Meta::Attribute::should_coerce, avg 1µs/call
# spent 50µs making 35 calls to Mouse::Meta::Attribute::should_auto_deref, avg 1µs/call
# spent 50µs making 36 calls to Mouse::Meta::Attribute::is_lazy, avg 1µs/call
# spent 49µs making 35 calls to Mouse::Meta::Attribute::type_constraint, avg 1µs/call
# spent 48µs making 36 calls to Mouse::Meta::Attribute::is_weak_ref, avg 1µs/call
# spent 36µs making 27 calls to Mouse::Meta::Attribute::has_default, avg 1µs/call |
| 258 | 54 | 331µs | $metaclass->add_method($attribute->{$type} => $code); # spent 331µs making 54 calls to Mouse::Meta::Module::add_method, avg 6µs/call | ||
| 259 | 54 | 284µs | $attribute->associate_method($attribute->{$type}); # spent 284µs making 54 calls to Mouse::Meta::Attribute::associate_method, avg 5µs/call | ||
| 260 | } | ||||
| 261 | } | ||||
| 262 | |||||
| 263 | # install delegation | ||||
| 264 | if(exists $attribute->{handles}){ | ||||
| 265 | my %handles = $attribute->_canonicalize_handles(); | ||||
| 266 | while(my($handle, $method_to_call) = each %handles){ | ||||
| 267 | next if Mouse::Object->can($handle); | ||||
| 268 | |||||
| 269 | if($metaclass->has_method($handle)) { | ||||
| 270 | $attribute->throw_error("You cannot overwrite a locally defined method ($handle) with a delegation"); | ||||
| 271 | } | ||||
| 272 | |||||
| 273 | $metaclass->add_method($handle => | ||||
| 274 | $attribute->_make_delegation_method( | ||||
| 275 | $handle, $method_to_call)); | ||||
| 276 | |||||
| 277 | $attribute->associate_method($handle); | ||||
| 278 | } | ||||
| 279 | } | ||||
| 280 | |||||
| 281 | return; | ||||
| 282 | } | ||||
| 283 | |||||
| 284 | sub delegation_metaclass() { ## no critic | ||||
| 285 | 'Mouse::Meta::Method::Delegation' | ||||
| 286 | } | ||||
| 287 | |||||
| 288 | sub _canonicalize_handles { | ||||
| 289 | my($self) = @_; | ||||
| 290 | my $handles = $self->{handles}; | ||||
| 291 | |||||
| 292 | my $handle_type = ref $handles; | ||||
| 293 | if ($handle_type eq 'HASH') { | ||||
| 294 | return %$handles; | ||||
| 295 | } | ||||
| 296 | elsif ($handle_type eq 'ARRAY') { | ||||
| 297 | return map { $_ => $_ } @$handles; | ||||
| 298 | } | ||||
| 299 | elsif ($handle_type eq 'Regexp') { | ||||
| 300 | my $meta = $self->_find_delegate_metaclass(); | ||||
| 301 | return map { $_ => $_ } | ||||
| 302 | grep { /$handles/ } | ||||
| 303 | Mouse::Util::is_a_metarole($meta) | ||||
| 304 | ? $meta->get_method_list | ||||
| 305 | : $meta->get_all_method_names; | ||||
| 306 | } | ||||
| 307 | elsif ($handle_type eq 'CODE') { | ||||
| 308 | return $handles->( $self, $self->_find_delegate_metaclass() ); | ||||
| 309 | } | ||||
| 310 | else { | ||||
| 311 | $self->throw_error("Unable to canonicalize the 'handles' option with $handles"); | ||||
| 312 | } | ||||
| 313 | } | ||||
| 314 | |||||
| 315 | sub _find_delegate_metaclass { | ||||
| 316 | my($self) = @_; | ||||
| 317 | my $meta; | ||||
| 318 | if($self->{isa}) { | ||||
| 319 | $meta = Mouse::Meta::Class->initialize("$self->{isa}"); | ||||
| 320 | } | ||||
| 321 | elsif($self->{does}) { | ||||
| 322 | $meta = Mouse::Util::get_metaclass_by_name("$self->{does}"); | ||||
| 323 | } | ||||
| 324 | defined($meta) or $self->throw_error( | ||||
| 325 | "Cannot find delegate metaclass for attribute " . $self->name); | ||||
| 326 | return $meta; | ||||
| 327 | } | ||||
| 328 | |||||
| 329 | |||||
| 330 | sub _make_delegation_method { | ||||
| 331 | my($self, $handle, $method_to_call) = @_; | ||||
| 332 | return Mouse::Util::load_class($self->delegation_metaclass) | ||||
| 333 | ->_generate_delegation($self, $handle, $method_to_call); | ||||
| 334 | } | ||||
| 335 | |||||
| 336 | 1 | 7µs | 1; | ||
| 337 | __END__ | ||||
# spent 3.38ms (378µs+3.00) within Mouse::Meta::Attribute::_process_options which was called 36 times, avg 94µs/call:
# 36 times (378µs+3.00ms) by Mouse::Meta::Attribute::new at line 56, avg 94µs/call | |||||
# spent 51µs within Mouse::Meta::Attribute::accessor_metaclass which was called 36 times, avg 1µs/call:
# 36 times (51µs+0s) by Mouse::Meta::Attribute::install_accessors at line 252, avg 1µs/call | |||||
# spent 50µs within Mouse::Meta::Attribute::associated_class which was called 36 times, avg 1µs/call:
# 36 times (50µs+0s) by Mouse::Meta::Attribute::install_accessors at line 251, avg 1µs/call | |||||
# spent 13µs within Mouse::Meta::Attribute::builder which was called 8 times, avg 2µs/call:
# once (2µs+0s) by Hailo::Storage::sth at line 110 of Hailo/Storage.pm
# once (2µs+0s) by Hailo::_engine at line 316 of Hailo.pm
# once (2µs+0s) by Hailo::_storage at line 309 of Hailo.pm
# once (2µs+0s) by Hailo::Storage::dbh at line 115 of Hailo/Storage/SQLite.pm
# once (2µs+0s) by Hailo::Storage::dbd_options at line 61 of Hailo/Storage.pm
# once (2µs+0s) by Hailo::_tokenizer at line 317 of Hailo.pm
# once (1µs+0s) by Hailo::Storage::dbi_options at line 45 of Hailo/Storage.pm
# once (1µs+0s) by Hailo::Storage::dbd at line 60 of Hailo/Storage.pm | |||||
# spent 20µs within Mouse::Meta::Attribute::default which was called 14 times, avg 1µs/call:
# 11 times (15µs+0s) by Mouse::Object::new at line 9 of reply.pl, avg 1µs/call
# 2 times (3µs+0s) by Mouse::Object::new at line 207 of Hailo.pm, avg 1µs/call
# once (2µs+0s) by Hailo::Engine::Default::repeat_limit at line 287 of Hailo/Engine/Default.pm | |||||
# spent 51µs within Mouse::Meta::Attribute::has_builder which was called 36 times, avg 1µs/call:
# 36 times (51µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call | |||||
# spent 36µs within Mouse::Meta::Attribute::has_default which was called 27 times, avg 1µs/call:
# 27 times (36µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call | |||||
# spent 53µs within Mouse::Meta::Attribute::has_trigger which was called 36 times, avg 1µs/call:
# 36 times (53µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call | |||||
# spent 55µs within Mouse::Meta::Attribute::has_type_constraint which was called 36 times, avg 2µs/call:
# 36 times (55µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 2µs/call | |||||
# spent 52µs within Mouse::Meta::Attribute::init_arg which was called 36 times, avg 1µs/call:
# 36 times (52µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call | |||||
# spent 50µs within Mouse::Meta::Attribute::is_lazy which was called 36 times, avg 1µs/call:
# 36 times (50µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call | |||||
# spent 51µs within Mouse::Meta::Attribute::is_required which was called 36 times, avg 1µs/call:
# 36 times (51µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call | |||||
# spent 48µs within Mouse::Meta::Attribute::is_weak_ref which was called 36 times, avg 1µs/call:
# 36 times (48µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call | |||||
# spent 132µs within Mouse::Meta::Attribute::name which was called 90 times, avg 1µs/call:
# 54 times (80µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_clearer or Mouse::Meta::Method::Accessor::XS::_generate_predicate or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call
# 36 times (52µs+0s) by Mouse::Meta::Class::_calculate_all_attributes at line 259 of Mouse/Meta/Class.pm, avg 1µs/call | |||||
# spent 50µs within Mouse::Meta::Attribute::should_auto_deref which was called 35 times, avg 1µs/call:
# 35 times (50µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call | |||||
# spent 51µs within Mouse::Meta::Attribute::should_coerce which was called 35 times, avg 1µs/call:
# 35 times (51µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call | |||||
# spent 1µs within Mouse::Meta::Attribute::trigger which was called:
# once (1µs+0s) by Mouse::Object::new at line 9 of reply.pl | |||||
# spent 49µs within Mouse::Meta::Attribute::type_constraint which was called 35 times, avg 1µs/call:
# 35 times (49µs+0s) by Mouse::Meta::Method::Accessor::XS::_generate_accessor or Mouse::Meta::Method::Accessor::XS::_generate_reader at line 257, avg 1µs/call |