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 37 "accessor _stream defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Markdent/Role/HTMLStream.pm" |
| 6 | | | | | sub {$meta->throw_error("Cannot assign a value to a read-only accessor", data => \@_) if @_ > 1;unless (exists $_[0]->{"_stream"}) { |
| 7 | | | | | my $default = $attr->default($_[0]); |
| 8 | | | | | |
| 9 | | | | | $type_constraint->($default) || $meta->throw_error("Attribute (_stream) does not pass the type constraint because: " . $type_constraint_obj->get_message($default), data => $default); |
| 10 | | | | | $_[0]->{"_stream"} = $default; |
| 11 | | | | | } |
| 12 | | | | | return $_[0]->{"_stream"};} |
| 13 | | | | | ; |
| 14 | | | | | |
| - - | | | | | |
| 37 | | | | | |
| - - | | | | | |
| 44 | 1 | 30µs | | | |