| blib/lib/CPAN/02Packages/Search.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 18 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 0 | unless ($fh) |
| 17 | 0 | 0 | exists $argv{'skip_header'} ? : |
| 24 | 0 | 0 | if ($skip_header) |
| 26 | 0 | 0 | unless tie *$fh, "Tie::Handle::SkipHeader", "<", $file |
| 29 | 0 | 0 | unless open my $fh, "<", $file |
| 37 | 0 | 0 | if $pos == -1 or eof $fh |
| 39 | 0 | 0 | unless $line =~ /\A\Q$package\E\s+/iu |
| 42 | 0 | 0 | if ($package eq $_package) |
| 43 | 0 | 0 | if $version eq "undef" |