| line |
true |
false |
branch |
|
14
|
0 |
11 |
if exists $$param{'is_sorted'} |
|
15
|
2 |
9 |
if exists $$param{'data_type'} |
|
21
|
1 |
1 |
if (scalar keys %$set1 > scalar keys %$set2) |
|
26
|
2 |
0 |
wantarray ? : |
|
31
|
1 |
75 |
if (scalar keys %$set1 < scalar keys %$set2) |
|
36
|
76 |
0 |
wantarray ? : |
|
45
|
2 |
5 |
if (&Scalar::Util::looks_like_number($key1)) |
|
51
|
2 |
4 |
if (&Scalar::Util::looks_like_number($key2)) |
|
57
|
5 |
2 |
if ($type1 eq $type2) |
|
68
|
0 |
0 |
if ($$self{'data_type'} eq 'number') { } |
|
69
|
0 |
0 |
if ($s > 1) { } |
|
75
|
0 |
0 |
if ($s > 1) { } |
|
96
|
10 |
3 |
if (ref $set1 eq 'HASH' and ref $set2 eq 'HASH' and %$set1 and %$set2) |
|
97
|
0 |
10 |
if (defined $threshold and $threshold > 0) { } |
|
103
|
1 |
9 |
unless exists $$self{'data_type'} |
|
104
|
10 |
0 |
if ($is_estimate or exists $$self{'data_type'}) |
|
109
|
28 |
17 |
if exists $$set2{$key1} |
|
134
|
1 |
128 |
unless exists $$self{'data_type'} |
|
135
|
8 |
121 |
if ($$self{'data_type'} eq 'number') { } |
|
146
|
64 |
1 |
if (ref $set1 eq 'HASH' and ref $set2 eq 'HASH' and %$set1 and %$set2 and $threshold > 0 and $threshold <= 1) |
|
157
|
0 |
64 |
unless $s1 * $threshold <= $cum_w2 |
|
159
|
1 |
63 |
unless exists $$self{'data_type'} |
|
160
|
64 |
0 |
if ($is_estimate or exists $$self{'data_type'}) |
|
177
|
31 |
130 |
if ($$self{'data_type'} eq 'number') { } |
|
183
|
42 |
119 |
if ($judge == -1) { } |
|
|
38 |
81 |
elsif ($judge == 1) { } |
|
185
|
41 |
1 |
if ($att1 < $s1) |
|
191
|
38 |
0 |
if ($att2 < $s2) |
|
199
|
61 |
20 |
if ($att1 < $s1 and $att2 < $s2) |
|
207
|
13 |
51 |
if $min > $cum_w1 - $c1 |
|
209
|
15 |
49 |
if ($match_num + $min < $min_overlap) |
|
214
|
0 |
49 |
unless $match_num >= 1 |
|
218
|
9 |
34 |
if ($$self{'data_type'} eq 'number') { } |
|
224
|
7 |
36 |
if ($judge == -1) { } |
|
|
0 |
36 |
elsif ($judge == 1) { } |
|
225
|
0 |
7 |
if $match_num + ($cum_w1 - $c1) < $min_overlap |
|
227
|
6 |
1 |
if ($att1 < $s1) |
|
232
|
0 |
0 |
if $match_num + ($cum_w2 - $c2) < $min_overlap |
|
234
|
0 |
0 |
if ($att2 < $s2) |
|
242
|
9 |
27 |
if ($att1 < $s1 and $att2 < $s2) |
|
249
|
1 |
48 |
unless $match_num >= $min_overlap + 1 |