| blib/lib/Script/State.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 6 | 16.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 28 | 1 | 0 | 0 | $DATAFILE and $VAR_REF |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 45 | 0 | 0 | 0 | delete $args{-'datafile'} || do { require File::Spec; my($vol, $dirs, $file) = 'File::Spec'->splitpath($0); 'File::Spec'->catpath($vol, $dirs, ".$file.pl") } |