| line |
true |
false |
branch |
|
21
|
0 |
0 |
unless (defined $path) |
|
32
|
0 |
0 |
unless (-e $path) |
|
43
|
0 |
0 |
unless ($io->open("<${path}region")) |
|
52
|
0 |
0 |
unless ($io->open("<${path}year")) |
|
61
|
0 |
0 |
unless ($io->open("<${path}event_number")) |
|
88
|
0 |
0 |
unless (defined $path) |
|
95
|
0 |
0 |
unless (defined $region and $region =~ /^\w{2}$/) |
|
105
|
0 |
0 |
unless (defined $year and $year =~ /^\d{4}$/) |
|
115
|
0 |
0 |
unless (defined $event_num and $event_num =~ /^\d+$/) |
|
129
|
0 |
0 |
if (-e $path) |
|
135
|
0 |
0 |
unless ($success) |
|
144
|
0 |
0 |
unless ($io->open(">${path}region")) |
|
154
|
0 |
0 |
unless ($io->open(">${path}year")) |
|
164
|
0 |
0 |
unless ($io->open(">${path}event_number")) |
|
213
|
0 |
0 |
unless defined $ignore_lock |
|
217
|
0 |
0 |
if (defined $arg) { } |
|
218
|
0 |
0 |
unless $ignore_lock |
|
219
|
0 |
0 |
unless ($success or $ignore_lock) |
|
226
|
0 |
0 |
if ($arg) { } |
|
228
|
0 |
0 |
unless ($io->open(">$activefile")) |
|
237
|
0 |
0 |
unless (unlink $activefile) |
|
244
|
0 |
0 |
unless $ignore_lock |
|
245
|
0 |
0 |
unless ($success or $ignore_lock) |
|
254
|
0 |
0 |
if (-e $activefile) { } |
|
275
|
0 |
0 |
unless ($got_lock) |
|
280
|
0 |
0 |
unless ($success) |
|
282
|
0 |
0 |
unless $lost_lock |
|
287
|
0 |
0 |
unless ($success) |
|
289
|
0 |
0 |
unless $lost_lock |
|
293
|
0 |
0 |
if (defined $active_state) |
|
295
|
0 |
0 |
unless (defined $set_to) |
|
297
|
0 |
0 |
unless $lost_lock |
|
305
|
0 |
0 |
if ($success) { } |
|
327
|
0 |
0 |
if defined $adv_obj |
|
330
|
0 |
0 |
wantarray ? : |
|
359
|
0 |
0 |
unless (defined $advisory_number) |
|
368
|
0 |
0 |
unless (defined $d) |
|
379
|
0 |
0 |
if $file =~ /^(\.|\.\.)$/ |
|
383
|
0 |
0 |
if (defined $number and $self->_compare_advisory_numbers($advisory_number, $number) == 0) |
|
390
|
0 |
0 |
unless defined $target_file |
|
413
|
0 |
0 |
unless (defined $d) |
|
423
|
0 |
0 |
if ($file =~ /\d+[A-Z]*\.adv$/) |
|
462
|
0 |
0 |
unless ($io_in->open("<$trackfile")) |
|
473
|
0 |
0 |
wantarray ? : |
|
491
|
0 |
0 |
if (defined $advisory_number) { } |
|
498
|
0 |
0 |
if (defined $event_type) { } |
|
505
|
0 |
0 |
if (defined $release_time) { } |
|
512
|
0 |
0 |
if (defined $max_winds) { } |
|
519
|
0 |
0 |
if (defined $min_central_pressure) { } |
|
526
|
0 |
0 |
if (defined $position_AR) { } |
|
552
|
0 |
0 |
if (-e $trackfile) { } |
|
554
|
0 |
0 |
unless ($success) |
|
561
|
0 |
0 |
unless ($io_in->open("<$trackfile.old")) |
|
568
|
0 |
0 |
unless ($io_out->open(">$trackfile")) |
|
583
|
0 |
0 |
if ($adv_comp < 0) { } |
|
|
0 |
0 |
elsif ($adv_comp == 0) { } |
|
588
|
0 |
0 |
if ($force_option) { } |
|
601
|
0 |
0 |
unless ($added_data) |
|
612
|
0 |
0 |
unless (unlink "$trackfile.old") |
|
619
|
0 |
0 |
unless ($io_out->open(">$trackfile")) |
|
641
|
0 |
0 |
if defined $num1_alpha |
|
648
|
0 |
0 |
if defined $num2_alpha |
|
672
|
0 |
0 |
if (-e $filename and not $force_option) { } |
|
679
|
0 |
0 |
unless ($io->open(">$filename")) |
|
697
|
0 |
0 |
if $success |
|
698
|
0 |
0 |
if ($i == 4) { } |
|
719
|
0 |
0 |
if $success |
|
720
|
0 |
0 |
if ($i == 4) { } |
|
741
|
0 |
0 |
if (-e $lock_file) { } |
|
746
|
0 |
0 |
unless $io->open(">$lock_file") |
|
761
|
0 |
0 |
if (unlink $lock_file) { } |