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