lib/Term/RouterCLI/Log.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 1 | 27 | 3.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
139 | 0 | 0 | 0 | $parameter =~ /^\d+$/ and $parameter > 0 |
0 | 0 | 0 | $parameter =~ /^\d+$/ and $parameter > 0 and $parameter < $$self{'_iMaxFileLength'} | |
173 | 0 | 0 | 0 | defined $$self{'_sFilename'} and $$self{'_iFileLength'} > 0 |
229 | 0 | 0 | 0 | defined $$self{'_sFilename'} and -r $$self{'_sFilename'} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
39 | 0 | 6 | 0 | ref $pkg || $pkg |
106 | 0 | 0 | 0 | $ENV{'HOME'} || $ENV{'LOGDIR'} || (getpwuid $>)[7] |
180 | 0 | 0 | 0 | 'FileHandle'->new(">$$self{'_sFilename'}") || warn('Can not open ' . $$self{'_sFilename'} . " for writing $!\n") |
185 | 0 | 0 | 0 | 'FileHandle'->new(">>$$self{'_sFilename'}") || warn('Can not open ' . $$self{'_sFilename'} . " for appending $!\n") |
190 | 0 | 0 | 0 | 'FileHandle'->new("<$$self{'_sFilename'}") || warn('Can not open ' . $$self{'_sFilename'} . " for reading $!\n") |