| line |
true |
false |
branch |
|
49
|
14186 |
18329 |
$b >> $_ & 1 ? :
|
|
112
|
1 |
71 |
unless &Str()->check($bech32enc)
|
|
116
|
12 |
59 |
if uc $bech32enc eq $bech32enc
|
|
119
|
2 |
69 |
if length $bech32enc > 90
|
|
123
|
2 |
67 |
if lc $bech32enc ne $bech32enc
|
|
129
|
1 |
66 |
if @parts < 2
|
|
137
|
3 |
63 |
if length $parts[0] < 1 or length $parts[0] > 83
|
|
141
|
3 |
60 |
unless $parts[0] =~ /^[\x21-\x7e]+$/
|
|
145
|
1 |
59 |
if length $parts[1] < 6
|
|
150
|
3 |
56 |
unless $parts[1] =~ /^[$chars]+$/
|
|
170
|
3 |
16 |
if length($bits) % 8 != 0 or length $bits < $length_padded - 4
|
|
205
|
0 |
1414 |
if $num < 0 or $num > 31
|
|
231
|
29 |
12 |
if ($type eq 'bech32') { }
|
|
|
12 |
0 |
elsif ($type eq 'bech32m') { }
|
|
251
|
20 |
5 |
$version == 0 ? :
|
|
259
|
26 |
30 |
if verify_checksum($hrp, $data)
|
|
261
|
25 |
31 |
if not $type and verify_checksum_bech32m($hrp, $data)
|
|
264
|
5 |
51 |
unless $type
|
|
276
|
6 |
19 |
if $ver == 0 and $type ne "bech32" or $ver > 0 and $type ne "bech32m"
|