| line |
true |
false |
branch |
|
58
|
0 |
0 |
@_ ? : |
|
90
|
0 |
1 |
if $opt{'help'} |
|
94
|
0 |
1 |
if $n > 1 |
|
96
|
0 |
1 |
unless @argv |
|
102
|
0 |
1 |
@argv == 1 && length $argv[0] == 1 ? : |
|
|
0 |
1 |
$opt{'hex_octets'} ? : |
|
|
0 |
1 |
$opt{'single'} ? : |
|
|
0 |
1 |
$opt{'names'} ? : |
|
|
0 |
1 |
$opt{'u_numbers'} ? : |
|
|
0 |
1 |
$opt{'explode'} ? : |
|
111
|
0 |
0 |
if (my(@too_long) = grep({length $_ > 1;} @chars)) |
|
124
|
0 |
0 |
unless $hunk =~ /\A[0-9A-F]+\z/i and length($hunk) % 2 == 0 |
|
140
|
0 |
0 |
if @$strings |
|
155
|
0 |
1 |
$opt->{'utf8'} ? : |
|
158
|
0 |
1 |
if ($opt->{'utf8'}) |
|
162
|
0 |
0 |
if $max_bytes == 4 |
|
171
|
0 |
17 |
unless (defined $c) |
|
174
|
0 |
17 |
$c =~ /\pM/ ? : |
|
185
|
0 |
17 |
if $l == 0 |
|
196
|
0 |
17 |
$opt->{'utf8'} ? : |
|
217
|
0 |
2 |
s[\A/(.+)/\z][$1] ? : |
|
220
|
1 |
0 |
if ($arg and $arg->{'match_codepoints'}) |
|
222
|
1 |
1 |
if $input_terms->[$_] =~ /\A[0-9A-Fa-f]+\z/ |
|
228
|
0 |
1 |
unless (defined $corpus) |
|
229
|
0 |
0 |
if $@ |
|
230
|
0 |
0 |
if $! |
|
235
|
0 |
1 |
"$]" >= 5.03101 ? : |
|
242
|
430 |
29948 |
if rindex($entry, " ", $i) >= 0 |
|
249
|
29931 |
0 |
unless $name =~ /$_->{'pattern'}/i or defined $_->{'ord'} and $_->{'ord'} == $ord |
|
253
|
0 |
17 |
if $seen{$c}++ |