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") } |