Call graph for these subroutines as a
Graphviz
dot language file.
| Line |
State
ments |
Time
on line |
Calls |
Time
in subs |
|---|
| 1 | | | | | my $type_constraint = ${$__captures->{'$type_constraint'}}; |
| 2 | | | | | my $type_constraint_obj = ${$__captures->{'$type_constraint_obj'}}; |
| 3 | | | | | my $meta = ${$__captures->{'$meta'}}; |
| 4 | | | | | my $attr = ${$__captures->{'$attr'}}; |
| 5 | | | | | #line 33 "accessor live_objects defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/KiokuDB/Stream/Objects.pm" |
| 6 | | | | | sub {$meta->throw_error("Cannot assign a value to a read-only accessor", data => \@_) if @_ > 1;unless (exists $_[0]->{"live_objects"}) { |
| 7 | | | | | my $default; |
| 8 | | | | | if(my $builder = $_[0]->can($attr->builder)){ |
| 9 | | | | | $default = $_[0]->$builder; |
| 10 | | | | | } else { |
| 11 | | | | | $meta->throw_error(sprintf "%s does not support builder method '%s' for attribute '%s'", ref($_[0]) || $_[0], $attr->builder, $attr->name); |
| 12 | | | | | } |
| 13 | | | | | $type_constraint->($default) || $meta->throw_error("Attribute (live_objects) does not pass the type constraint because: " . $type_constraint_obj->get_message($default), data => $default); |
| 14 | | | | | $_[0]->{"live_objects"} = $default; |
| 15 | | | | | } |
| 16 | | | | | return $_[0]->{"live_objects"};} |
| 17 | | | | | ; |
| 18 | | | | | |
| - - | | | | | |
| 33 | | | | | |
| - - | | | | | |
| 44 | 1 | 36µs | | | |