| line |
true |
false |
branch |
|
20
|
0 |
0 |
unless (defined $base_path and -e $base_path) |
|
49
|
0 |
0 |
unless ($good) |
|
56
|
0 |
0 |
unless (defined $paths_HR or $self->_region_dir_exists($region_code)) |
|
58
|
0 |
0 |
unless (defined $good and $good) |
|
64
|
0 |
0 |
if (defined $paths_HR) |
|
72
|
0 |
0 |
if (defined $paths_HR and defined $data_obj_found) { } |
|
74
|
0 |
0 |
if ($success) { } |
|
84
|
0 |
0 |
unless (defined $year) |
|
96
|
0 |
0 |
unless ($root_paths) |
|
107
|
0 |
0 |
unless (defined $new_data_obj) |
|
109
|
0 |
0 |
if ($counter > 3) { } |
|
122
|
0 |
0 |
if ($adv_obj->is_final) { } |
|
129
|
0 |
0 |
if ($success) { } |
|
154
|
0 |
0 |
if (defined $region and defined $year and defined $event_num) { } |
|
170
|
0 |
0 |
if (-e $region_path and -d $region_path) { } |
|
188
|
0 |
0 |
if (-e $region_path and -d $region_path) |
|
196
|
0 |
0 |
if (defined $success and $success) { } |
|
212
|
0 |
0 |
unless ($region_code =~ /^\w{2}$/) |
|
234
|
0 |
0 |
if (-e $short_path and -d $short_path) { } |
|
246
|
0 |
0 |
if (defined $counter) { } |
|
265
|
0 |
0 |
if (defined $paths_HR and defined $$paths_HR{$region_code} and scalar @{$$paths_HR{$region_code};} > 0) { } |
|
277
|
0 |
0 |
unless defined $matches and $matches |
|
282
|
0 |
0 |
if ($last_used_year == $year) { } |
|
309
|
0 |
0 |
if (defined $matches and $matches) { } |
|
328
|
0 |
0 |
unless (defined @{$paths_AR;}) |
|
334
|
0 |
0 |
unless defined $data_obj |
|
337
|
0 |
0 |
unless defined $adv_obj |
|
342
|
0 |
0 |
if (not $grep_count) { } |
|
372
|
0 |
0 |
if (@{$recent_frags_AR;}[$i] eq $target_header_frag) |
|
381
|
0 |
0 |
if ($matched_storm_obj) { } |
|
391
|
0 |
0 |
if ($old_epoch_time and $new_epoch_time) { } |
|
395
|
0 |
0 |
if ($time_delta >= $way_too_old) { } |
|
|
0 |
0 |
elsif ($time_delta >= $too_old and $target_adv_obj->advisory_number == 1) { } |
|
406
|
0 |
0 |
if ($target_adv_obj->advisory_number == 1 and $matched_current_adv_obj->advisory_number != 1) { } |
|
431
|
0 |
0 |
if (ref $arg) { } |
|
440
|
0 |
0 |
unless ($matches) |
|
463
|
0 |
0 |
unless ($good) |
|
493
|
0 |
0 |
unless ($good) |
|
498
|
0 |
0 |
unless ($self->_region_dir_exists($region_code)) |
|
500
|
0 |
0 |
unless $good |
|
506
|
0 |
0 |
if (-e $path and -d $path) { } |
|
513
|
0 |
0 |
unless ($root_paths) |
|
524
|
0 |
0 |
unless (defined $data_obj) |
|
526
|
0 |
0 |
if ($counter > 3) { } |
|
540
|
0 |
0 |
if ($adv_obj->is_final) { } |
|
557
|
0 |
0 |
unless (defined $region and $region =~ /^\w{2}$/) |
|
593
|
0 |
0 |
unless $possible_region_dir =~ m[/\w{2}$] |
|
603
|
0 |
0 |
if (defined $target_region_code) |
|
610
|
0 |
0 |
unless ($good) |
|
618
|
0 |
0 |
if ($target_exists) { } |
|
705
|
0 |
0 |
unless (defined $d) |
|
736
|
0 |
0 |
if (defined $target_region_code) |
|
739
|
0 |
0 |
unless ($good) |
|
745
|
0 |
0 |
unless (defined $all_paths_by_region_HR) |
|
756
|
0 |
0 |
if (defined $data_obj) { } |
|
781
|
0 |
0 |
if (defined $target_region_code) |
|
784
|
0 |
0 |
unless ($good) |
|
790
|
0 |
0 |
unless (defined $all_paths_by_region_HR) |
|
802
|
0 |
0 |
if (not $match) { } |
|
813
|
0 |
0 |
if (defined $target_year) |
|
814
|
0 |
0 |
unless $year == $target_year |
|
818
|
0 |
0 |
if (defined $data_obj) { } |
|
819
|
0 |
0 |
unless (defined $$data_objects_by_region_HR{$region}{$year}) |
|
847
|
0 |
0 |
if (defined $target_region_code) |
|
850
|
0 |
0 |
unless ($good) |
|
856
|
0 |
0 |
unless (defined $all_paths_by_region_HR) |
|
869
|
0 |
0 |
unless (defined $data_obj) |
|
876
|
0 |
0 |
unless (defined $is_active) |
|
881
|
0 |
0 |
if $is_active |
|
910
|
0 |
0 |
if (defined $target_region_code) |
|
913
|
0 |
0 |
unless ($good) |
|
918
|
0 |
0 |
unless (defined $epoch_retire) |
|
925
|
0 |
0 |
unless (defined $all_paths_by_region_HR) |
|
938
|
0 |
0 |
unless (defined $data_obj) |
|
945
|
0 |
0 |
unless (defined $is_active) |
|
952
|
0 |
0 |
unless (defined $current_adv) |
|
959
|
0 |
0 |
unless defined $epoch_date |
|
961
|
0 |
0 |
if ($is_active or defined $epoch_date and $epoch_date >= $epoch_retire) |