| Filename | /home/doy/nytprof/kioku-new/accessor max_depth (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Devel/PartialDump.pm line 67) |
| Statements | Executed 2 statements in 45µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 27µs | 27µs | Eval::Closure::__ANON__[accessor max_depth (defined at Devel/PartialDump.pm line 67):13] |
| 0 | 0 | 0 | 0s | 0s | Eval::Closure::__ANON__[accessor max_depth (defined at Devel/PartialDump.pm line 67):12] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 27µs within Eval::Closure::__ANON__[accessor max_depth (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Devel/PartialDump.pm line 67):13] which was called:
# once (27µs+0s) by Eval::Closure::_clean_eval_closure at line 94 of Eval/Closure.pm | ||||
| 2 | my $attr = ${$_[0]}; | ||||
| 3 | my $meta = ${$_[1]}; | ||||
| 4 | my $type_constraint = ${$_[2]}; | ||||
| 5 | my $type_constraint_obj = ${$_[3]}; | ||||
| 6 | #line 1 "accessor max_depth (defined at /home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Devel/PartialDump.pm line 67)" | ||||
| 7 | sub { | ||||
| 8 | if (@_ > 1) { | ||||
| 9 | if (@_ < 2) { | ||||
| 10 | $meta->throw_error("Attribute (max_depth) is required, so cannot be set to undef"); | ||||
| 11 | } | ||||
| 12 | if (!$type_constraint->($_[1])) { | ||||
| 13 | 1 | 26µs | $meta->throw_error("Attribute (max_depth) does not pass the type constraint because: " . $type_constraint_obj->get_message($_[1]), data => $_[1]); | ||
| 14 | 1 | 19µs | } | ||
| 15 | $_[0]->{"max_depth"} = $_[1]; | ||||
| 16 | } | ||||
| 17 | return $_[0]->{"max_depth"}; | ||||
| 18 | } | ||||
| 19 | } | ||||
| 20 | ; |