Branch Coverage

blib/lib/Geo/GDAL.pm
Criterion Covered Total %
branch 240 474 50.6


line true false branch
234 0 0 if defined $self
239 0 0 if ($_[0]->isa('SCALAR')) { }
242 0 0 unless $_[0]->isa('HASH')
244 0 0 unless defined $self
247 0 0 if (exists $OWNER{$self})
275 0 0 unless $_[0]->isa('HASH')
277 0 0 unless defined $self
279 0 0 if (exists $OWNER{$self})
316 29 29 if ($_[0]->isa('SCALAR')) { }
319 0 29 unless $_[0]->isa('HASH')
321 0 29 unless defined $self
324 28 30 if (exists $OWNER{$self})
447 11 0 if defined $pi and exists $PALETTE_INTERPRETATION_STRING2INT{$pi}
449 16 0 if defined $self
454 28 28 if ($_[0]->isa('SCALAR')) { }
457 0 28 unless $_[0]->isa('HASH')
459 0 28 unless defined $self
462 16 40 if (exists $OWNER{$self})
498 2 0 if defined $self
503 3 3 if ($_[0]->isa('SCALAR')) { }
506 0 3 unless $_[0]->isa('HASH')
508 0 3 unless defined $self
511 2 4 if (exists $OWNER{$self})
561 0 0 if defined $self
565 0 0 unless $_[0]->isa('HASH')
567 0 0 unless defined $self
569 0 0 if (exists $OWNER{$self})
745 287 0 if $type =~ /^\d/
767 12 10 if exists $Geo::GDAL::TYPE_STRING2INT{$t}
768 0 22 unless exists $Geo::GDAL::TYPE_INT2STRING{$t2}
774 0 12 unless exists $Geo::GDAL::TYPE_STRING2INT{$t}
776 1 11 if $t =~ /Byte/
777 1 10 if $t =~ /UInt16/
778 2 8 if $t =~ /Int16/
779 1 7 if $t =~ /UInt32/
780 2 5 if $t =~ /Int32/
781 2 3 if $t =~ /Float32/
782 2 1 if $t =~ /Float64/
788 12 0 if exists $Geo::GDAL::TYPE_STRING2INT{$t}
789 0 12 unless exists $Geo::GDAL::TYPE_INT2STRING{$t2}
795 30 14 if exists $Geo::GDAL::TYPE_INT2STRING{$t}
796 0 44 unless exists $Geo::GDAL::TYPE_STRING2INT{$t}
798 9 35 if $t =~ /^Byte$/
799 0 2 $is_big_endian ? :
2 33 if $t =~ /^UInt16$/
800 2 31 if $t =~ /^Int16$/
801 0 2 $is_big_endian ? :
2 29 if $t =~ /^UInt32$/
802 11 18 if $t =~ /^Int32$/
803 2 16 if $t =~ /^Float32$/
804 7 9 if $t =~ /^Float64$/
812 84 210 unless $md->{'DCAP_RASTER'} and $md->{'DCAP_RASTER'} eq 'YES'
823 42 105 unless $md->{'DCAP_RASTER'} and $md->{'DCAP_RASTER'} eq 'YES'
831 0 129 unless defined $name
833 0 129 if $name =~ /^\d+$/
834 129 0 unless $driver
835 129 0 if ($driver)
838 0 129 unless $md->{'DCAP_RASTER'} and $md->{'DCAP_RASTER'} eq 'YES'
847 2 0 if (defined $p[1])
848 0 2 unless exists $Geo::GDAL::ACCESS_STRING2INT{$p[1]}
856 2 0 if (defined $p[1])
857 0 2 unless exists $Geo::GDAL::ACCESS_STRING2INT{$p[1]}
865 1 2 if $p[5] and not defined $p[6]
871 0 0 if $p[5] and not defined $p[6]
877 0 0 if $p[3] and not defined $p[4]
883 0 0 if $p[7] and not defined $p[8]
889 0 0 if $params[5] and not defined $params[6]
890 0 0 unless $params[3] =~ /^\d/
896 0 0 if $p[6] and not defined $p[7]
902 0 1 if $p[2]
903 0 1 if $p[3] and not defined $p[4]
909 1 1 if $p[2]
910 0 2 if $p[3] and not defined $p[4]
916 0 0 if $p[7] and not defined $p[8]
917 0 0 if (defined $p[4])
918 0 0 unless exists $Geo::GDAL::RESAMPLING_STRING2INT{$p[4]}
927 0 0 if (defined $p[$i] and ref $p[$i])
931 0 0 if (defined $p[3])
932 0 0 unless exists $Geo::GDAL::RESAMPLING_STRING2INT{$p[3]}
952 0 0 if defined $desc
953 0 0 if defined wantarray
959 0 0 if ref $_[0]
961 0 0 unless defined $domain
962 0 0 if defined $metadata
963 0 0 if defined wantarray
988 1 1 unless $self
993 5 4 if defined $test and $test eq 'YES'
1001 5 0 defined $h && $h eq 'YES' ? :
1020 1 0 if ($h)
1023 1 0 if ($value eq 'CreationOptionList')
1029 37 103 if ($key eq 'Value') { }
1045 1 0 if $h->{'DMD_CREATIONDATATYPES'}
1057 2 20 if (@_ == 0) { }
0 20 elsif (ref $_[0] eq 'HASH') { }
8 12 elsif (exists $defaults{$_[0]} and @_ % 2 == 0) { }
1066 0 90 unless exists $defaults{$k}
1069 42 90 unless defined $params{$k}
1072 0 22 unless exists $Geo::GDAL::TYPE_STRING2INT{$params{'Type'}}
1118 6 27 unless defined $index
1127 3 0 if (defined $p[1])
1128 0 3 unless exists $Geo::GDAL::TYPE_STRING2INT{$p[1]}
1136 0 0 if defined $proj
1137 0 0 if defined wantarray
1142 0 0 if defined $sr
1143 0 0 if defined wantarray
1149 3 2 if (@_ == 1) { }
0 2 elsif (@_ > 1) { }
1155 0 5 if $@
1156 3 2 unless defined wantarray
1158 0 2 if (wantarray) { }
1167 0 0 if (@_ > 0)
1169 0 0 if $proj and ref $proj
1172 0 0 unless defined wantarray
1200 1 0 if (defined $_[0])
1204 0 1 if (@_ == 0) { }
0 1 elsif (ref $_[0] eq 'HASH') { }
0 1 elsif (@_ % 2 == 0 and (defined $t and exists $d{$t})) { }
1215 0 14 unless exists $d{$u}
1219 7 7 unless defined $p{$_}
1222 0 1 unless exists $Geo::GDAL::RIO_RESAMPLING_STRING2INT{$p{'RESAMPLEALG'}}
1224 1 0 unless ($Geo::GDAL::TYPE_INT2STRING{$p{'BUFTYPE'}})
1226 0 1 unless exists $Geo::GDAL::TYPE_STRING2INT{$p{'BUFTYPE'}}
1252 1 0 if (defined $_[0])
1256 0 1 if (@_ == 0) { }
0 1 elsif (ref $_[0] eq 'HASH') { }
1 0 elsif (@_ % 2 == 0 and (defined $t and exists $d{$t})) { }
1267 0 4 unless exists $d{$u}
1271 8 4 unless defined $p{$_}
1273 1 0 unless ($Geo::GDAL::TYPE_INT2STRING{$p{'BUFTYPE'}})
1275 0 1 unless exists $Geo::GDAL::TYPE_STRING2INT{$p{'BUFTYPE'}}
1284 1 0 if $p[0]
1288 0 1 if $@
1332 34 34 if ($_[0]->isa('SCALAR')) { }
1335 0 34 unless $_[0]->isa('HASH')
1337 0 34 unless defined $self
1340 0 68 if (exists $Geo::GDAL::Band::OWNER{$self})
1368 1 2 if (@_ > 0)
1369 1 0 if (defined $_[0]) { }
1380 1 1 if (@_ > 0)
1382 0 1 unless defined $unit
1385 1 1 unless defined wantarray
1391 1 1 if @_ > 0 and defined $_[0]
1392 1 1 if @_ > 1 and defined $_[1]
1393 1 1 unless defined wantarray
1401 9 1 unless defined $xoff
1402 9 1 unless defined $yoff
1403 9 1 unless defined $xsize
1404 9 1 unless defined $ysize
1421 8 1 unless defined $xoff
1422 8 1 unless defined $yoff
1424 0 9 if $xsize > $self->{'XSize'} - $xoff
1426 0 9 if $ysize > $self->{'YSize'} - $yoff
1436 12 13 if (defined $ci) { }
1438 12 0 if exists $Geo::GDAL::Band::COLOR_INTERPRETATION_STRING2INT{$ci}
1439 0 12 unless exists $Geo::GDAL::Band::COLOR_INTERPRETATION_INT2STRING{$ci2}
1449 12 11 if @_ and defined $_[0]
1450 11 12 unless defined wantarray
1456 1 1 if @_
1457 1 1 unless defined wantarray
1464 1 1 if @_ and defined $_[0]
1465 1 1 unless defined wantarray
1467 1 0 if $r
1482 0 5 unless exists $defaults{$_}
1485 16 5 unless defined $params{$_}
1487 0 3 if $params{'Progress'} and not defined $params{'ProgressData'}
1506 0 0 if (not defined $_[0] or &blessed($_[0]) and $_[0]->isa('Geo::OGR::DataSource')) { }
1514 0 0 if (exists $params{'progress'})
1518 0 0 if (exists $params{'progress_data'})
1524 0 0 unless exists $defaults{$_}
1527 0 0 unless defined $params{$_}
1530 0 0 unless defined $params{'DataSource'}
1531 0 0 unless $params{'LayerConstructor'}{'Schema'}
1532 0 0 unless $params{'LayerConstructor'}{'Schema'}{'Fields'}
1534 0 0 unless ($params{'IDField'} =~ /^[+-]?\d+$/ or $fields{$params{'IDField'}})
1537 0 0 unless ($params{'ElevField'} =~ /^[+-]?\d+$/ or $fields{$params{'ElevField'}})
1538 0 0 $self->DataType =~ /Float/ ? :
1544 0 0 unless $params{$_} =~ /^[+-]?\d+$/
1546 0 0 if $params{'Progress'} and not defined $params{'ProgressData'}
1556 1 1 unless $mask
1558 2 0 unless defined $p[0]
1559 2 0 unless defined $p[1]
1560 2 0 unless defined $p[2]
1561 2 0 unless defined $p[3]
1562 0 2 unless defined $p[1]
1587 10 1 if (defined $_[0])
1591 1 10 if (@_ == 0) { }
0 10 elsif (ref $_[0] eq 'HASH') { }
0 10 elsif (@_ % 2 == 0 and (defined $t and exists $d{$t})) { }
1602 0 120 unless exists $d{$u}
1606 92 40 unless defined $p{$_}
1609 0 11 unless exists $Geo::GDAL::RIO_RESAMPLING_STRING2INT{$p{'RESAMPLEALG'}}
1611 11 0 unless ($Geo::GDAL::TYPE_INT2STRING{$p{'BUFTYPE'}})
1613 0 11 unless exists $Geo::GDAL::TYPE_STRING2INT{$p{'BUFTYPE'}}
1637 670 0 if (defined $_[0])
1641 0 670 if (@_ == 0) { }
0 670 elsif (ref $_[0] eq 'HASH') { }
1 669 elsif (@_ % 2 == 0 and (defined $t and exists $d{$t})) { }
1652 0 6693 unless exists $d{$u}
1656 3352 3348 unless defined $p{$_}
1658 670 0 unless ($Geo::GDAL::TYPE_INT2STRING{$p{'BUFTYPE'}})
1660 0 670 unless exists $Geo::GDAL::TYPE_STRING2INT{$p{'BUFTYPE'}}
1671 2 6 if $f & $Geo::GDAL::Band::MASK_FLAGS{$flag}
1673 2 0 wantarray ? :
1679 0 1 if (@_ and $_[0] =~ /^\d$/) { }
1683 0 1 unless $Geo::GDAL::Band::MASK_FLAGS{$flag}
1735 11 5 if (ref $_[0] eq 'ARRAY') { }
1743 0 16 if $@
1749 5 2 if @_ > 0
1750 6 1 if defined wantarray
1756 2 2 if (@_) { }
1830 0 0 if (@_)
1847 0 57 unless exists $Geo::GDAL::RasterAttributeTable::FIELD_TYPE_STRING2INT{$type}
1848 0 57 unless exists $Geo::GDAL::RasterAttributeTable::FIELD_USAGE_STRING2INT{$usage}
1850 8 220 if $usage eq $color and $type ne 'Integer'
1859 57 0 if defined $_[3]
1860 0 57 unless defined wantarray
1866 0 0 if @_ > 0
1867 0 0 unless defined wantarray
1869 0 0 $a[0] ? :
1905 0 0 if ($@)
1930 0 0 if ($@)
1941 0 0 if ($@)
1962 0 0 if ($@)
1970 0 0 if (not $recursive) { }
1974 0 0 if $f eq '..' or $f eq '.'
1976 0 0 if ($s[0] eq 'f') { }
0 0 elsif ($s[0] eq 'd') { }
1986 0 0 if ($@)
1987 0 0 $recursive ? :
1998 0 0 if ($@)
2008 0 3 if ($@)
2024 2 3 if (@_ == 0) { }
2 1 elsif (@_ == 1) { }
2039 0 0 if (ref $_[0] eq 'ARRAY') { }
2041 0 0 if defined $_[1]
2044 0 0 unless ref $GCPs[$#GCPs]
2064 0 0 if (not defined wantarray) { }