| blib/lib/Perl5/Build/Warnings.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 18 | 88.8 |
| line | true | false | branch |
|---|---|---|---|
| 116 | 3 | 5 | unless ref $params and ref $params eq 'HASH' |
| 119 | 1 | 4 | unless exists $params->{'file'} |
| 120 | 1 | 3 | unless -f $params->{'file'} |
| 137 | 2 | 1 | if ($data->{'file'} =~ /\.gz/u) { } |
| 143 | 0 | 3 | unless defined $IN |
| 147 | 9859 | 394 | unless $l =~ /^ ([^:]+): (\d+): (\d+):\s+warning:\s+ (.*?)\s+\[- (W.*)]$ /ux |
| 165 | 0 | 3 | unless $IN->close |
| 293 | 1 | 2 | unless $wg =~ /^W/u |
| 295 | 1 | 1 | unless $self->{'warnings_groups'}{$wg} |