Branch Coverage

blib/lib/Geo/ReadGRIB.pm
Criterion Covered Total %
branch 106 158 67.0


line true false branch
55 0 13 unless (defined $gFile)
90 0 13 if ($?)
108 143 65 if ($invel =~ /=/)
132 0 13 if ($$self{'GRID_TYPE'} != 0)
183 0 13 if ($?)
194 427 6 if ($timeRange == 0) { }
6 0 elsif ($timeRange == 10) { }
205 420 13 if $offset > $$self{'LAST_TIME'}
228 0 9 if ($?)
282 0 13 if ($slice[0] == $slice[1] and $slice[0] == 255 and not $$self{'INCREMENTS_FLAG'}) { }
290 0 13 if ($slice[0] == $slice[1] and $slice[0] == 255 and not $$self{'INCREMENTS_FLAG'}) { }
303 0 13 if ($scan_mode_flags[0])
307 0 13 if ($scan_mode_flags[2])
326 13 1322 if defined $flag
335 7 35 if defined $error
344 13 90 if defined $flag
353 13 58 if defined $flag
362 13 1302 if defined $flag
371 13 1321 if defined $flag
380 0 13 if defined $flag
389 13 45 if defined $flag
398 13 1924 if defined $flag
407 13 1296 if defined $flag
416 13 0 if defined $flag
440 13 14 if ($self->sn_scan_flag) { }
441 3 10 if ($lat < $self->La1 or $lat > $self->La2)
446 2 12 if ($lat > $self->La1 or $lat < $self->La2)
465 10 12 if ($self->sn_scan_flag) { }
467 0 10 if ($lo > 360)
472 0 10 if ($lo < 0 or $lo > $self->Ni)
477 2 10 if ($lo < $self->Lo1 or $lo > $self->Lo2)
508 6 98 if ($$inArray[0] >= 128)
521 6 98 if $isNeg
551 0 0 if ($pts == 0) { }
0 0 elsif ($c1 < 0 or $c2 < 0) { }
585 1216 57 if ($self->sn_scan_flag) { }
590 0 1216 if ($thislong > 360)
638 1 5 $self->backflip ? :
639 0 6 $$self{'DEBUG'} ? :
643 0 6 if (ref $type_s eq 'ARRAY') { }
6 0 elsif ($type_s =~ /\w+/) { }
658 0 6 unless ($lat1 >= $lat2 and $long1 <= $long2)
663 0 6 unless (defined $time)
668 0 6 if ($time < $$self{'TIME'} or $time > $$self{'LAST_TIME'})
675 0 6 unless ($self->validLa($lat1) and $self->validLa($lat2))
680 0 6 unless ($self->validLo($long1) and $self->validLo($long2))
688 6 0 if (defined $time)
699 0 6 unless (defined $record)
707 0 6 unless my $F = 'IO::File'->new($tmp)
724 1082 1 defined $dump ? :
725 0 1083 if $dump eq ''
726 0 1083 if $dump > 9.999e+20
727 0 1083 if $DEBUG
728 231 852 if $flipBack
752 14 6 if defined $flag
788 5 10 unless ($self->validLa($lat))
793 2 8 unless ($self->validLo($long))
800 0 8 if ($offset < 0)
805 0 8 unless defined $time
807 0 8 if ($time != 0 and $time < $$self{'TIME'} or $time > $$self{'LAST_TIME'})
818 8 0 if (defined $time)
824 0 8 unless (defined $$self{'v_catalog'}{$type})
839 8 0 if ($time != 0)
845 0 8 unless (defined $record)
853 0 8 if $$self{'DEBUG'}
855 0 8 unless my $F = 'IO::File'->new("$tmp")
860 3 5 if $dump > 9.999e+20
861 0 8 if $$self{'DEBUG'}
867 8 0 if $time != 0
884 7 7 if (1 == @times) { }
889 7 276 if ($time >= $times[$i] and $time <= $times[$j])
890 0 7 if ($time - $times[$i] <= $times[$j] - $time) { }
935 7 21 defined $self->error ? :
979 2 0 if (defined $arg) { }
980 1 1 if ($arg =~ /show/i) { }
1 0 elsif (grep /$arg/, @published) { }
1014 0 3 if (defined $arg) { }
1015 0 0 if ($arg =~ /show/i) { }
0 0 elsif (grep /$arg/, @published) { }