| blib/lib/Geo/WeatherNOAA.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 57 | 43.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 129 | 0 | 20 | 20 | $key and $value |
| 133 | 20 | 0 | 20 | $key =~ s/^\.// and $value |
| 20 | 0 | 20 | $key =~ s/^\.// and $value and $key | |
| 150 | 0 | 0 | 0 | not $key and $value |
| 0 | 0 | 0 | $key and not $value | |
| 225 | 0 | 0 | 2 | $coverage =~ /$city/i and $section =~ /\d{4}/ |
| 251 | 0 | 0 | 0 | $coverage =~ /$city/i and $section =~ /\d{4}/ |
| 470 | 72 | 1 | 0 | $1 and $2 |
| 0 | 1 | 0 | $1 and $2 and $3 | |
| 485 | 0 | 0 | 1 | $fields =~ /TMP/ and $fields =~ /\sDP\s/ |
| 503 | 0 | 0 | 1 | $line and $fields |
| line | l | !l | condition |
|---|---|---|---|
| 266 | 1 | 14 | shift() || 2 |
| 267 | 0 | 15 | $main::font_face || 'FACE="Helvetica, Lucida, Ariel"' |
| 274 | 1 | 0 | $fileopt ||= 'get' |
| 276 | 0 | 1 | $max_items ||= 4 |
| 278 | 0 | 1 | $main::med_bg || '#ddddff' |
| 279 | 0 | 1 | $main::light_bg || '#eeeeff' |
| 280 | 0 | 1 | $main::font_face || 'FACE="Helvetica, Lucida, Ariel"' |
| 383 | 3 | 0 | $fileopt ||= 'get' |
| 389 | 3 | 0 | get_url($URL, $UA) || (return "Error getting data from $URL") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 363 | 0 | 0 | 3 | $ENV{'HTTP_PROXY'} or $ENV{'http_proxy'} |
| 387 | 1 | 2 | 0 | $fileopt eq 'get' or $fileopt eq 'save' |