| Filename | /home/doy/nytprof/kioku-new/accessor previous_exception (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Throwable.pm line 16) |
| Statements | Executed 3 statements in 66µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 1 | 1 | 57µs | 57µs | Eval::Closure::__ANON__[accessor previous_exception (defined at Throwable.pm line 16):7] |
| 0 | 0 | 0 | 0s | 0s | Eval::Closure::__ANON__[accessor previous_exception (defined at Throwable.pm line 16):6] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 57µs within Eval::Closure::__ANON__[accessor previous_exception (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Throwable.pm line 16):7] which was called 2 times, avg 29µs/call:
# 2 times (57µs+0s) by Eval::Closure::_clean_eval_closure at line 94 of Eval/Closure.pm, avg 29µs/call | ||||
| 2 | my $attr = ${$_[0]}; | ||||
| 3 | my $meta = ${$_[1]}; | ||||
| 4 | my $type_constraint = ${$_[2]}; | ||||
| 5 | my $type_constraint_obj = ${$_[3]}; | ||||
| 6 | #line 1 "accessor previous_exception (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Throwable.pm line 16)" | ||||
| 7 | 2 | 48µs | sub { | ||
| 8 | 1 | 18µs | if (@_ > 1) { | ||
| 9 | $meta->throw_error("Cannot assign a value to a read-only accessor", data => \@_); | ||||
| 10 | } | ||||
| 11 | return $_[0]->{"previous_exception"}; | ||||
| 12 | } | ||||
| 13 | } | ||||
| 14 | ; |