| line |
true |
false |
branch |
|
47
|
14 |
29 |
if ($$args{"no_cache"}) |
|
66
|
40 |
3 |
if ($self->file_exists($$self{"filebase"} . ".shx")) |
|
71
|
40 |
3 |
if ($self->file_exists($$self{"filebase"} . ".shp")) |
|
76
|
41 |
2 |
if ($self->file_exists($$self{"filebase"} . ".dbf")) |
|
81
|
2 |
41 |
unless ($$self{"has_dbf"}) |
|
83
|
2 |
0 |
unless $$self{"has_shp"} and $$self{"has_shx"} |
|
96
|
41 |
0 |
if (-e $file_name) { } |
|
114
|
121 |
8 |
if -e $file_name |
|
140
|
0 |
27430 |
if (defined $flag) |
|
149
|
37008 |
27430 |
if $$self{"_no_cache"} |
|
152
|
0 |
27430 |
if $$self{"_change_cache"}{$type} and $$self{"_change_cache"}{$type}{$obj} |
|
154
|
0 |
27430 |
unless $self->caching($type) |
|
156
|
8371 |
19059 |
if ($cache) |
|
175
|
6 |
2 |
wantarray ? : |
|
183
|
2 |
0 |
unless (defined $sub) |
|
190
|
1 |
1 |
unless (defined $shapes) |
|
196
|
2 |
0 |
wantarray ? : |
|
204
|
0 |
0 |
unless (defined $sub) |
|
265
|
80 |
0 |
$little_endian_sys ? : |
|
280
|
2 |
3 |
if $type =~ /^[0-9]+$/ |
|
290
|
0 |
28 |
unless defined $$self{"dbf_field_names"} |
|
295
|
28 |
0 |
wantarray ? : |
|
323
|
41 |
0 |
if ord $last_byte == 26 |
|
325
|
0 |
41 |
if $ls != $li |
|
336
|
37 |
357 |
if ord $chr == 13 |
|
337
|
4 |
353 |
if length $tmp < 32 |
|
353
|
0 |
41 |
if $count < 1 |
|
359
|
0 |
353 |
if $$_{"size"} < 1 |
|
362
|
0 |
353 |
if $$_{"size"} > 4000 |
|
411
|
0 |
0 |
unless $header |
|
421
|
0 |
0 |
wantarray ? : |
|
430
|
6939 |
2313 |
unless ($dbf) |
|
449
|
4626 |
4626 |
wantarray ? : |
|
465
|
0 |
0 |
unless (defined $$self{"shx_" . $val} or defined $$self{"shp_" . $val}) |
|
471
|
151 |
0 |
defined $$self{'shx_' . $val} ? : |
|
511
|
2 |
26 |
unless $self->records |
|
519
|
2 |
26 |
unless $self->records |
|
572
|
0 |
33 |
if defined $$self{"_change_cache"}{"shape_type"} |
|
581
|
0 |
214 |
if defined $$self{"_change_cache"}{"records"} |
|
583
|
0 |
214 |
unless ($$self{"shx_file_length"}) |
|
597
|
0 |
197 |
if defined $$self{"_change_cache"}{"records"} |
|
599
|
196 |
1 |
if ($$self{'shx_file_length'}) { } |
|
|
0 |
1 |
elsif ($$self{'dbf_num_records'}) { } |
|
626
|
0 |
17630 |
unless $entry |
|
631
|
12520 |
5110 |
unless ($shx) |
|
658
|
2 |
10 |
if (my $sp_index = $self->get_spatial_index) |
|
665
|
0 |
2 |
wantarray ? : |
|
674
|
0 |
962 |
if $self->type($type) eq "Null" |
|
676
|
0 |
962 |
if ($self->type($type) =~ /^Point/) { } |
|
|
962 |
0 |
elsif ($self->type($type) =~ /^(PolyLine|Polygon|MultiPoint|MultiPatch)/) { } |
|
678
|
0 |
0 |
$little_endian_sys ? : |
|
684
|
0 |
0 |
if ($self->area_contains_point($pt, @area)) |
|
690
|
962 |
0 |
$little_endian_sys ? : |
|
695
|
615 |
347 |
if ($self->check_in_area(@p, @area)) |
|
704
|
8 |
2 |
wantarray ? : |
|
730
|
0 |
0 |
if ($_[0] > $_[1]) |
|
752
|
0 |
0 |
$end =~ /^l/i ? : |
|
765
|
7416 |
3265 |
unless ($shape) |
|
796
|
121 |
33507 |
unless ($$self{$han}) |
|
798
|
121 |
0 |
if (-e $file) { } |
|
801
|
0 |
121 |
unless $$self{$han}->open($file, 0) |
|
824
|
0 |
33628 |
unless $h->seek($offset, 0) |
|
830
|
0 |
33628 |
unless defined $res |
|
833
|
0 |
33628 |
if $res == 0 |
|
869
|
2 |
26 |
unless scalar @objects |