| line |
true |
false |
branch |
|
37
|
2 |
4 |
if (@{$args;} < 2) |
|
44
|
0 |
7 |
if lc $_ eq 'stdin' |
|
45
|
1 |
6 |
unless (Path::Tiny::path($_)->is_file) |
|
50
|
1 |
2 |
if ($opt->{'op'} =~ /^overlap/i) { } |
|
|
1 |
1 |
elsif ($opt->{'op'} =~ /^non/i) { } |
|
|
1 |
0 |
elsif ($opt->{'op'} =~ /^superset/i) { } |
|
63
|
0 |
3 |
if (not exists $opt->{'outfile'}) |
|
86
|
3 |
0 |
if (lc $opt->{'outfile'} eq 'stdout') { } |
|
95
|
0 |
15 |
if substr($line, 0, 1) eq '#' |
|
99
|
0 |
15 |
unless App::RL::Common::info_is_valid($info) |
|
101
|
0 |
15 |
if $opt->{'remove'} |
|
105
|
5 |
10 |
if ($opt->{'op'} eq 'overlap') |
|
106
|
5 |
0 |
if ($chrs->has($info->{'chr'})) |
|
108
|
2 |
3 |
if ($chr_single->intersect($cur_positions)->is_not_empty) |
|
114
|
5 |
10 |
if ($opt->{'op'} eq 'non-overlap') |
|
115
|
5 |
0 |
if ($chrs->has($info->{'chr'})) { } |
|
117
|
3 |
2 |
if ($chr_single->intersect($cur_positions)->is_empty) |
|
126
|
5 |
10 |
if ($opt->{'op'} eq 'superset') |
|
127
|
5 |
0 |
if ($chrs->has($info->{'chr'})) |
|
129
|
2 |
3 |
if ($chr_single->superset($cur_positions)) |