| line |
true |
false |
branch |
|
37
|
0 |
1 |
if $@ |
|
42
|
0 |
2 |
if defined &is_loaded($_) |
|
45
|
0 |
1 |
if (@loaded_conflicts) |
|
61
|
0 |
1 |
unless open my $fh, '<', $0 |
|
63
|
1 |
0 |
unless defined $code_to_test |
|
79
|
0 |
0 |
unless /\@\s+ARGV/ |
|
87
|
0 |
0 |
if ($module_path =~ /$module_name$/) |
|
95
|
0 |
0 |
unless File::Temp::unlink0($temp_fh, $temp_filename) |
|
100
|
0 |
0 |
if (@warn_modules) |
|
143
|
0 |
0 |
if ($$current{'COMMAND'} =~ /\s-?-$reproduce_opt\s+(\S+)/) |
|
163
|
0 |
0 |
if (not defined $custom_repro_opts) { } |
|
|
0 |
0 |
elsif (ref $custom_repro_opts eq 'HASH') { } |
|
168
|
0 |
0 |
unless exists $$custom_repro_opts{$opt} |
|
183
|
1 |
3 |
if (defined $cli_dir) { } |
|
|
2 |
1 |
elsif (not defined $$dir) { } |
|
187
|
1 |
1 |
if (defined $ENV{'REPRO_DIR'}) { } |
|
201
|
1 |
5 |
if /\s/ |
|
212
|
4 |
3 |
if ($argv_idx > -1) |
|
239
|
0 |
0 |
unless -e $$file |
|
242
|
0 |
0 |
if (defined $counter) { } |
|
264
|
0 |
0 |
if scalar @keys != 1 |
|
291
|
0 |
0 |
unless open my $old_repro_fh, '>>', $old_repro_file |
|
294
|
0 |
0 |
unless defined $has_been_reproduced |
|
304
|
0 |
0 |
unless open my $repro_fh, '>', $repro_file |
|
329
|
0 |
0 |
if `git --version 2> $devnull` eq '' |
|
335
|
0 |
0 |
if $gitbranch =~ /fatal: Not a git repository/ |
|
371
|
0 |
0 |
unless open my $fh, '<', $0 |
|
383
|
0 |
0 |
unless my($mod) = $_ =~ /^\s*Package\s*([^\s]+)\s*$/ |
|
384
|
0 |
0 |
if $mod =~ /[()]/ |
|
385
|
0 |
0 |
unless $mod =~ /\w/ |
|
389
|
0 |
0 |
unless File::Temp::unlink0($temp_fh, $temp_filename) |
|
394
|
0 |
0 |
unless $NOWARN |
|
398
|
0 |
0 |
if $@ |
|
400
|
0 |
0 |
$@ ? : |
|
402
|
0 |
0 |
unless defined $version |
|
416
|
0 |
0 |
$abs_dir eq $prog_dir ? : |
|
436
|
0 |
0 |
if (exists $$current{'REPRODUCTION'}) |
|
444
|
0 |
0 |
if (exists $$current{'GIT'}) |
|
455
|
0 |
0 |
unless defined $diff_file |
|
459
|
0 |
0 |
if (scalar @warning_messages > 0) { } |
|
493
|
4 |
1 |
if (defined $message) { } |
|
496
|
2 |
2 |
$pad > 1 ? : |
|
510
|
0 |
0 |
if $archived_prog ne $prog |
|
537
|
0 |
0 |
if ($arc_string ne $cur_string) |
|
549
|
0 |
0 |
if (join('', @arc_array) ne join('', @cur_array)) |
|
563
|
0 |
0 |
if $arc_key ne $cur_key or defined $too_many_ak or defined $too_many_ck |
|
571
|
0 |
0 |
if (not ref $archive_subgroup{$arc_key} || ref $current_subgroup{$cur_key}) { } |
|
|
0 |
0 |
elsif (ref $archive_subgroup{$arc_key} eq 'ARRAY' and ref $current_subgroup{$cur_key} eq 'ARRAY') { } |
|
574
|
0 |
0 |
if ($archive_subgroup{$arc_key} ne $current_subgroup{$cur_key}) |
|
587
|
0 |
0 |
if (join('', @{$archive_subgroup{$arc_key};}) ne join('', @{$current_subgroup{$cur_key};})) |
|
618
|
0 |
0 |
if (@$warnings) |
|
640
|
0 |
0 |
if ($@) |
|
678
|
0 |
0 |
if ($response =~ /^Y(?:ES)?$/i) { } |
|
|
0 |
0 |
elsif ($response =~ /^N(?:O)?$/i) { } |
|
693
|
0 |
0 |
unless open my $repro_fh, '>>', $repro_file |
|
699
|
1 |
0 |
unless defined $repro_file |
|
702
|
0 |
0 |
unless open my $repro_fh, '>>', $repro_file |