| blib/lib/Data/Thunk/Code.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 5 | 60.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 34 | 3 | 1 | 7 | CORE::ref $tmp and refcount($tmp) == 1 |
| line | l | !l | condition |
|---|---|---|---|
| 47 | 0 | 0 | &try(sub {
require B;
my $cv = B::svref_2object($_[0]{'code'});
my $file = $cv->FILE;
my $line = $cv->START->line;
"in thunk defined at $file line $line";
}
) || 'at < |