| blib/lib/EAFDSS/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 39 | 82 | 47.5 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 0 | 4 | if (not exists $$config{'DIR'}) { } |
| 52 | 0 | 4 | if (not exists $$config{'SN'}) { } |
| 79 | 4 | 0 | if ($fname eq '-' or -e $fname) { } |
| 81 | 0 | 4 | if ($replySignDir != 0) |
| 92 | 0 | 4 | if ($invalid) |
| 100 | 4 | 0 | if ($reply == 0) { } |
| 132 | 1 | 0 | if ($reply == 0) { } |
| 152 | 1 | 0 | if ($reply == 0) { } |
| 171 | 0 | 0 | if ($reply == 0) { } |
| 189 | 1 | 0 | if ($reply == 0) { } |
| 207 | 0 | 0 | if ($reply == 0) { } |
| 208 | 0 | 0 | if ($devices) { } |
| 230 | 0 | 0 | if ($reply == 0) { } |
| 252 | 0 | 0 | if ($reply == 0) { } |
| 271 | 0 | 4 | if ($replySignDir != 0) |
| 281 | 0 | 4 | if ($reply1 != 0) |
| 302 | 0 | 1 | if ($reply1 != 0) |
| 318 | 0 | 132 | if (grep(($_ == ord $c), (0, 1, 2, 3, 4, 5, 6, 7, 8, 11, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 27, 28, 29, 30, 31, 127, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 173, 210, 255))) |
| 331 | 0 | 8 | if ($result != 0) |
| 336 | 4 | 4 | unless (-d $$self{'DIR'}) |
| 342 | 5 | 3 | unless (-d $deviceDir) |
| 355 | 0 | 8 | if ($reply ne '0') |
| 358 | 7 | 1 | if ($cmos != 1) |
| 365 | 0 | 1 | if ($reply != 0) |
| 373 | 0 | 1 | unless opendir DIR, $deviceDir |
| 395 | 0 | 1 | unless open FB, '>>', $curFileB |
| 401 | 1 | 0 | if ($z) { } |
| 420 | 0 | 4 | unless open FA, '>', $fnA |
| 435 | 0 | 4 | unless open FB, '>', $fnB |
| 451 | 0 | 5 | unless open FC, '>', $fnC |
| 461 | 0 | 5 | if ($reply != 0) |
| 467 | 0 | 5 | unless opendir DIR, $deviceDir |
| 478 | 1 | 1 | unless (-e $curFileB) |
| 486 | 0 | 1 | unless open FB, '>', $curFileB |
| 499 | 0 | 5 | if ($reply != 0) |
| 507 | 0 | 5 | unless opendir DIR, $deviceDir |
| 516 | 0 | 0 | if (/${curClosure}_c\.txt$/) |
| 523 | 0 | 1 | if ($matched) { } |
| 530 | 0 | 1 | unless open FC, '>', $deviceDir . '/' . $fnC |
| 553 | 113 | 0 | if (ref $self and defined $$self{'_DEBUG'}) { } |
| 562 | 113 | 0 | unless $flag |