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) { } |