| line |
true |
false |
branch |
|
15
|
2 |
0 |
if (-e "$main::RealBin/../lib/Proch/N50.pm" and -e "$main::RealBin/../Changes") |
|
77
|
0 |
2 |
if defined $opt_ne |
|
101
|
0 |
2 |
if $opt_sort_by eq "n50" |
|
102
|
0 |
2 |
if $opt_help |
|
103
|
1 |
1 |
if defined $opt_version |
|
111
|
0 |
2 |
if ($opt_format eq "list") |
|
116
|
0 |
0 |
if ($opt_color) { } |
|
120
|
0 |
0 |
if ($formats{$f} eq 'Not implemented') { } |
|
136
|
0 |
2 |
unless (defined $ARGV[0] or $opt_version) |
|
142
|
0 |
2 |
if $opt_format_screen and $opt_format_json |
|
145
|
0 |
0 |
if $opt_format ne "default" and $opt_format_screen || $opt_format_json |
|
148
|
0 |
2 |
if $opt_format_screen |
|
149
|
0 |
2 |
if $opt_format_json |
|
153
|
0 |
2 |
unless (defined $valid_sort_keys{$opt_sort_by}) |
|
171
|
0 |
2 |
if ($opt_sort_by eq 'path') { } |
|
174
|
0 |
0 |
if $opt_reverse_sort |
|
178
|
0 |
2 |
if $opt_reverse_sort |
|
183
|
0 |
2 |
unless defined $sorters{$sorting_order} |
|
186
|
2 |
0 |
if (defined $opt_format) |
|
188
|
0 |
2 |
unless ($formats{$opt_format}) |
|
196
|
0 |
2 |
if ($opt_format eq "json") |
|
203
|
0 |
0 |
unless $hasJSON |
|
208
|
0 |
2 |
if ($opt_format eq "screen") |
|
214
|
0 |
0 |
if defined $opt_ne |
|
218
|
0 |
0 |
unless ($has_table) |
|
224
|
0 |
2 |
if ($opt_format eq "custom" and not defined $opt_template) |
|
230
|
0 |
2 |
if ($formats{$opt_format} eq "Not implemented") |
|
242
|
0 |
1 |
if (not -e "$file" and $file ne '-') { } |
|
|
0 |
1 |
elsif (-d "$file") { } |
|
|
0 |
1 |
elsif ($file eq '-') { } |
|
258
|
0 |
1 |
if defined $opt_format and $opt_format =~ /JSON/u |
|
263
|
0 |
1 |
unless ($FileStats->{'status'}) |
|
265
|
0 |
0 |
if ($opt_debug) |
|
271
|
0 |
1 |
if $opt_debug |
|
272
|
0 |
1 |
unless (defined $FileStats->{'auN'}) |
|
288
|
0 |
1 |
defined $opt_ne ? : |
|
290
|
0 |
1 |
if $opt_debug |
|
292
|
0 |
1 |
if $opt_basename |
|
293
|
0 |
1 |
if $opt_fullpath |
|
305
|
0 |
1 |
if defined $opt_ne |
|
307
|
0 |
1 |
if (defined $output_object{$file}) |
|
317
|
0 |
8 |
if ($opt_thousand_separator or $opt_format eq 'screen') { } |
|
335
|
2 |
0 |
if (not $opt_format or $opt_format eq 'default') { } |
|
|
0 |
0 |
elsif ($opt_format eq 'json') { } |
|
|
0 |
0 |
elsif ($opt_format eq 'tsv' or $opt_format eq 'csv') { } |
|
|
0 |
0 |
elsif ($opt_format eq 'custom') { } |
|
|
0 |
0 |
elsif ($opt_format eq 'screen') { } |
|
339
|
1 |
1 |
if ($file_num == 1) { } |
|
343
|
0 |
1 |
if ($opt_nonewline) { } |
|
346
|
0 |
0 |
$opt_thousand_separator ? : |
|
351
|
0 |
1 |
$opt_thousand_separator ? : |
|
361
|
0 |
0 |
$opt_thousand_separator ? : |
|
371
|
0 |
0 |
if ($opt_pretty) |
|
379
|
0 |
0 |
if $opt_format eq "csv" |
|
383
|
0 |
0 |
if defined $opt_ne |
|
384
|
0 |
0 |
unless defined $opt_noheader |
|
390
|
0 |
0 |
if ($opt_thousand_separator) { } |
|
391
|
0 |
0 |
if $opt_format eq "csv" or $opt_separator eq "," |
|
393
|
0 |
0 |
if defined $output_object{$r}{$fields[$i]} |
|
394
|
0 |
0 |
if $opt_format eq "csv" or $opt_separator eq "," |
|
398
|
0 |
0 |
if defined $output_object{$r}{$fields[$i]} |
|
400
|
0 |
0 |
if ($i == $#fields and not $opt_nonewline) { } |
|
412
|
0 |
0 |
if defined $opt_ne |
|
416
|
0 |
0 |
if defined $opt_template |
|
418
|
0 |
0 |
if $output_string =~ /(\{new\}|\{n\}|\\n)/u |
|
420
|
0 |
0 |
if $output_string =~ /(\{tab\}|{t}|\\t)/u |
|
422
|
0 |
0 |
if $output_string =~ /\{path\}/u |
|
432
|
0 |
0 |
if defined $opt_ne |
|
439
|
0 |
0 |
if (defined $output_print{$r}{$fields[$i]}) { } |
|
455
|
4 |
0 |
unless defined $opt_debug |
|
457
|
0 |
0 |
unless defined $title |
|
467
|
2 |
1 |
if (not defined $title_color) { } |
|
|
0 |
1 |
elsif (not colorvalid($title_color)) { } |
|
474
|
0 |
3 |
if (not defined $message_color) { } |
|
|
0 |
3 |
elsif (not colorvalid($message_color)) { } |
|
482
|
0 |
3 |
if $title |
|
511
|
0 |
0 |
if $tlen > $total / 2 |
|
521
|
0 |
0 |
$dec ? : |
|
528
|
0 |
0 |
unless @$aux |
|
529
|
0 |
0 |
if $aux->[1] |
|
530
|
0 |
0 |
unless (defined $aux->[0]) |
|
533
|
0 |
0 |
if (substr($_, 0, 1) eq ">" or substr($_, 0, 1) eq "\@") |
|
538
|
0 |
0 |
unless (defined $aux->[0]) |
|
545
|
0 |
0 |
if (defined $_) |
|
546
|
0 |
0 |
/^.(\S+)/u ? : |
|
555
|
0 |
0 |
if $c eq ">" or $c eq "\@" or $c eq "+" |
|
559
|
0 |
0 |
unless defined $aux->[0] |
|
560
|
0 |
0 |
if $c ne "+" |
|
565
|
0 |
0 |
if (length $qual >= length $seq) |