| line |
true |
false |
branch |
|
35
|
0 |
5 |
unless my $inputkey = shift @$args |
|
38
|
0 |
5 |
unless my $dbkey = shift @$args |
|
41
|
0 |
5 |
unless my $dbfile = shift @$args |
|
51
|
1 |
4 |
if ($operation) |
|
72
|
21 |
0 |
unless $db{$value} |
|
97
|
14 |
11 |
if (my $db_records = $db->{$value}) { } |
|
|
2 |
9 |
elsif ($this->{'KEEP_RIGHT'}) { } |
|
99
|
0 |
14 |
if ($this->{'ACCUMULATE_RIGHT'}) { } |
|
100
|
0 |
0 |
if ($this->{'OPERATION'}) { } |
|
105
|
0 |
0 |
unless (exists $db_record->{$this_key}) |
|
112
|
3 |
11 |
if ($this->{'OPERATION'}) { } |
|
121
|
3 |
11 |
if ($this->{'KEEP_LEFT'}) |
|
144
|
0 |
3 |
if ($@) |
|
151
|
1 |
4 |
if ($this->{'KEEP_LEFT'}) |
|
155
|
1 |
3 |
unless (exists $this->{'KEYS_PRINTED'}{$value}) |