| line |
true |
false |
branch |
|
18
|
6 |
122 |
if @_ > 0 and ref $_[-1] eq "HASH" |
|
19
|
2 |
126 |
if @_ < 2 |
|
23
|
7 |
119 |
unless defined $opt |
|
29
|
10 |
116 |
wantarray ? : |
|
44
|
140 |
118 |
if @_ > 0 and ref $_[-1] eq "HASH" |
|
45
|
3 |
255 |
unless @_ == 2 |
|
51
|
56 |
199 |
unless defined $opt |
|
52
|
12 |
243 |
if ($opt->{'ignore_diacritics'}) { } |
|
53
|
1 |
11 |
unless (defined $eq_without_diacritics) |
|
66
|
254 |
1 |
defined $s ? : |
|
67
|
254 |
1 |
defined $t ? : |
|
69
|
10 |
245 |
if $t_length == 0 |
|
70
|
7 |
238 |
if $s_length == 0 |
|
72
|
15 |
223 |
if $s eq $t |
|
83
|
916 |
4152 |
&$eq(substr($s, $i, 1), substr($t, $j, 1)) ? : |