blib/lib/Test/Resub.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 15 | 18 | 83.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
64 | 24 | 10 | 1 | exists $args{'call'} and not in($args{'call'}, ('optional', 'required', 'forbidden')) |
168 | 20 | 0 | 45 | exists $stash{$sub} && *{$stash{$sub};}{'CODE'} && *{$stash{$sub};}{'NAME'} eq $sub |
351 | 22 | 6 | 3 | not $self->was_called and $$self{'call'} eq 'required' |
355 | 9 | 21 | 1 | $self->was_called and $$self{'call'} eq 'forbidden' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
91 | 23 | 10 | 0 | $args{'code'} || $class->default_replacement_sub |
227 | 31 | 32 | 0 | $is_destroy or not defined $meta |