| blib/lib/CAD/AutoCAD/Detect.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 6 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 1 | 4 | unless open my $fh, '<', $file |
| 25 | 0 | 4 | unless close $fh |
| 30 | 3 | 1 | if ($read == 6 and &any(sub { $_ eq $magic; } , 'CAD::AutoCAD::Version'->list_of_acad_identifiers)) { } |