Branch Coverage

blib/lib/UI/KeyboardLayout.pm

Criterion	Covered	Total	%
branch	2	2900	0.0

line	true	false	branch
11	0	1	if ($n =~ /^0x/i) { }
58	0	0	unless $unfix{$in}
59	45	0	unless $fix{$in}
60	0	0	unless $fix{$in}
5784	0	0	ref $class ? :
5788	0	0	if (ref $class and defined(my $v = $class->{$key})) { }
5804	0	0	if @_ > 1
5805	0	0	@_ ? :
5811	0	0	if @_
5827	0	0	if length $pre
5831	0	0	if ($k =~ s[^visual\s*->\s*][[unparsed]/])
5838	0	0	if join($", @k) eq ''
5840	0	0	unless my($arr, $at, $slash, $kk, $vvv) = $l =~ m[^((?:(\@)|(/)|\+)?)(\w+)=(.*)]s
5842	0	0	$slash ? :
	0	0	$at ? :
5843	0	0	length $vvv ? :
	0	0	if $arr
5845	0	0	if ($slot and exists $slot->{$kk})
5846	0	0	if ($arr) { }
5847	0	0	if (ref($slot->{$kk} || 0) eq 'ARRAY') { }
5886	0	0	exists $to->{'k'} ? :
5887	0	0	if ($old eq 'HASH') { }
	0	0	elsif ($old ne '-' and not $overwrite) { }
	0	0	elsif (ref $from->{$k} eq 'HASH') { }
5888	0	0	unless 'HASH' eq ref $from->{$k}
5909	0	0	if (defined $sep2 and 3 <= @k and $k =~ /$sep2/)
5911	0	0	if not length $k[0] and @k == 2
5912	0	0	if not @k or grep((!length($_)), @k)
5914	0	0	if ($k[0] || '') eq "\000" and $skip_first
5915	0	0	if @k == 1 and defined $k[0] and 1 == length $k[0] and $k[0] ne &UI::KeyboardLayout::ucfirst($k[0])
5916	0	0	if $name
5918	0	0	if @k > 2
5920	0	0	defined $_ ? :
5927	0	0	if @k > $limit
5930	0	0	if $k[0] eq '--'
5931	0	0	defined $k[$_] ? :
5940	0	0	ref $self ? :
5941	0	0	unless $from or exists $extra{$k}
5945	0	0	unless $opt->{'visual_rowcount'} == @{$opt->{'visual_per_row_counts'};}
5948	0	0	if @lines % $C
5950	0	0	$_ eq ' ' ? :
5954	0	0	if defined $opt->{'in_key_separator2'}
5957	0	0	unless $lineN % $C
5961	0	0	if $pref->[$line_in_row] eq qr/\s/
5962	0	0	if $l1 =~ s/^[\x{202d}\x{202e}]//
5963	0	0	unless $l1 =~ s/^$PREF\s*(?<=\s)//
5965	0	0	if $line_in_row == 0
5967	0	0	unless @k1 == $N
5975	0	0	if 1 == $lineN % $C
5979	0	0	unless @out == @{$opt->{'layer_names'};}
5990	0	0	ref $self ? :
5991	0	0	unless $from or exists $extra{$k}
5996	0	0	unless $cnt == @{$opt->{'layer_names'};}
6003	0	0	if @lines != $cnt * $opt->{'rect_rows_cols'}[0] + ($cnt - 1) * $r0
6007	0	0	if $c >= @{$opt->{'rect_horizontal_counts'};}
6011	0	0	unless @lines
6012	0	0	unless ($L = shift @lines) =~ /^#/
6024	0	0	unless $c0 and length $L[0]
6026	0	0	unless (my $gap = substr($L[$i], 0, $c0, '')) =~ /\S/
6033	0	0	if $c != @{$opt->{'rect_horizontal_counts'};}
6040	0	0	if $i > $#{$$opt{'layer_names'};} - 3
6050	0	0	if $i > $#{$$opt{'layer_names'};}
6053	0	0	if $i > $#{$$opt{'layer_names'};} - 1
6055	0	0	if $i > $#{$$opt{'layer_names'};} - 3
6066	0	0	unless @_
6068	0	0	unless exists $h->{$k}
6075	0	0	defined $h ? :
	0	0	unless @_
6081	0	0	unless exists $H->{$k}
6084	0	0	unless ref($v || 1) and $IDX and defined $idx
6099	0	0	$k =~ m(^\[unparsed]/KBD\b) ? :
6104	0	0	if $offsets
6111	0	0	if $ignore and not defined $k
6118	0	0	if $ignore and not defined $k
6119	0	0	if $k and ref $k
6125	0	0	if $ignore and not defined $k
6151	0	0	unless ref $o
6152	0	0	if "$o" =~ /^ARRAY\(/
6153	0	0	if "$o" =~ /^HASH\(/
6163	0	0	unless defined $_
6164	0	0	if (ref $_) { }
	0	0	elsif ($h->{$_}) { }
6165	0	0	unless 'ARRAY' eq ref $_
6178	0	0	if @$hn != @$Hn
6183	0	0	if $skipfix
6185	0	0	if $self->{'layers'}{'[ini_copy]'}{$L}
6194	0	0	if $_ and ref $_
6195	0	0	$_ && ref $_ ? :
6196	0	0	$_ && ref $_ ? :
6198	0	0	unless $p[0][$_]
6202	0	0	if defined $C[0][$_]
6208	0	0	if 1 == ($obsc[0] || 0) and $free_first[0] = 0 and not defined $C[1][1]
6209	0	0	unless $skipfix
6212	0	0	if ($skipfix) { }
	0	0	elsif (defined $C[1][$map{$k}] and $p[0][$k]) { }
6213	0	0	$k ? :
6215	0	0	ref($skipwarn || '') ? :
	0	0	unless ref($skipwarn || '') ? $$skipwarn{$c[0][$k]} : $skipwarn
6219	0	0	if (defined $C[1][$map{$k}])
6220	0	0	if $seen_deobsc{$c[0][$k]}
6222	0	0	unless ($C[0][$k] || '.') =~ /[\W\d_]/
6231	0	0	$skipfix ? :
6233	0	0	if defined $H[$L][$shift]
6237	0	0	if $already_linked
6241	0	0	if defined $C[$i][$j] and not defined $h[$i][$j]
6242	0	0	if defined $c[$i][$j] and not defined $H[$i][$j]
6259	0	0	if (defined(my $flip = $self->{'faces'}{$hh}{'[Flip_AltGr_Key]'}))
6260	0	0	unless defined(my $flipped = $self->{'faces'}{$HH}{'[invAltGr_Accessor]'})
6264	0	0	if (my $where = $self->{'face_back'}{$hh}{$flip}) { }
6270	0	0	if $c and ref $c
6272	0	0	if defined $c and $c ne $flipped || !$dead
6291	0	0	if ($self->{'face_back'}{$F})
6292	0	0	if $skipfix
6304	0	0	unless ($#$a == $last)
6307	0	0	unless $last >= $fst or $#$a >= $fst
6311	0	0	unless defined(my $c = $a->[$k][$shift])
6312	0	0	if 'ARRAY' eq ref $c
6313	0	0	if ($prefer_first->{$c}) { }
6315	0	0	if $seen->{$c} and $prefer_last->{$c}
6318	0	0	unless $seen->{$c}
	0	0	if @{[] unless $seen->{$c};} and not $prefer_last->{$c} and $c ne ' '
6324	0	0	if %warn and not $skipwarn
6330	0	0	if $N == $max
6337	0	0	if $self->{'faces'}{$F1}{'Face_link_map'}{$F2}
6339	0	0	unless my $seen = $self->{'face_back'}{$F1}
6344	0	0	if $no_inic
6349	0	0	unless @$arr
6366	0	0	if $c =~ /^[0-9a-f]{4,}$/i
6384	0	0	unless exists $self->{'layer_recipes'}{$l}
6392	0	0	if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/
6403	0	0	unless $self->{'faces'}{$f}{'char2key_prefer_first'}
6405	0	0	unless $self->{'faces'}{$f}{'char2key_prefer_last'}
6406	0	0	unless defined $self->{'faces'}{$f}{'[AltGrInv_AltGr_as_Ctrl]'}
6417	0	0	if ref $self->{'faces'}{$f}{'[ComposeKey_Show]'} and not length $self->{'faces'}{$f}{'[ComposeKey_Show]'}[0]
6420	0	0	if ($compK and ref $compK) { }
	0	0	elsif (defined $compK) { }
6423	0	0	if defined $kkk[3] and length $kkk[3]
6430	0	0	unless ($self->{'faces'}{$f}{'layers'})
6431	0	0	unless $self->{'face_recipes'}{$f}
6434	0	0	unless $self->{'faces'}{$f}{'layers'}
6436	0	0	if $self->{'layers'}{$l}
6439	0	0	if @r
6443	0	0	unless $self->{'layers'}{$l}
6448	0	0	unless $self->{'faces'}{$f}{'AltGrCharSubstitutions'}
6451	0	0	unless 2 == (my @s = split(//, $s, 0))
6453	0	0	if &UI::KeyboardLayout::lc($s[0]) ne $s[0] and &UI::KeyboardLayout::lc($s[1]) ne $s[1]
6455	0	0	if &UI::KeyboardLayout::uc($s[0]) ne $s[0] and &UI::KeyboardLayout::uc($s[1]) ne $s[1]
6458	0	0	unless $self->{'faces'}{$f}{'Import_Prefix_Keys'}
6459	0	0	unless $self->{'faces'}{$f}{'Import_Prefix_Keys'}
6460	0	0	if %h
6462	0	0	unless ($c = $self->{'layer_counts'}{$l0 = $self->{'faces'}{$f}{'layers'}[0]})
6464	0	0	if defined $l0
6466	0	0	if defined $l0
6467	0	0	if $c
6468	0	0	if $o
6471	0	0	if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/
6472	0	0	unless $self->{'faces'}{$f}{'AltGrCharSubstitutionFaces'}
6475	0	0	unless my $to = $self->{'faces'}{$F}{'layers'}[$L]
6478	0	0	unless $from->[$k] and $to->[$k]
6480	0	0	unless defined(my $s = $from->[$k][$shift]) and defined(my $ss = $to->[$k][$shift])
6489	0	0	if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/
6490	0	0	unless $self->{'faces'}{$f}{'AltGrCharSubstitutionLayers'}
6492	0	0	unless my $from = $self->{'faces'}{$f}{'layers'}[$N]
6495	0	0	unless $from->[$k] and $to->[$k]
6497	0	0	unless defined(my $s = $from->[$k][$shift]) and defined(my $ss = $to->[$k][$shift])
6505	0	0	if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/
6513	0	0	if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/
6514	0	0	unless defined(my $o = $self->{'faces'}{$f}{'LinkFace'})
6520	0	0	if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/
6524	0	0	if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/
6526	0	0	unless defined $o
6531	0	0	if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/
6532	0	0	if (defined(my $r = $self->{'faces'}{$f}{'[CapsLOCKoverride]'}))
6541	0	0	unless $self->{'faces'}{$f}{'layerDeadKeys'}
6542	0	0	unless length $D
6547	0	0	unless $self->{'faces'}{$f}{'layers'}[$c] =~ /^\Q$name\E(<.*>)?$/
6553	0	0	defined $self->{'faces'}{$f}{'faceDeadKeys'} ? :
6555	0	0	unless length $k
6557	0	0	if 1 < length $k
6560	0	0	unless $s{$k}++
6562	0	0	defined $self->{'faces'}{$f}{'ExportDeadKeys'} ? :
6563	0	0	unless length $k
6565	0	0	if 1 < length $k
6568	0	0	if (my $LL = $self->{'faces'}{$f}{'[ini_layers]'}) { }
6577	0	0	if defined $k and not ref $k
6578	0	0	if (defined $k and $$DDD{$k->[0]} || $$vk{$k->[0]})
6594	0	0	if defined $k and not ref $k
6595	0	0	if (defined $k and $$DDD{$k->[0]} || $$vk{$k->[0]})
6606	0	0	unless $self->{'faces'}{$f}{'faceDeadKeys2'} or $self->{'faces'}{$f}{'layerDeadKeys2'}
6609	0	0	if 2 != @k
6623	0	0	unless $h->{'char2key_prefer_first'}
	0	0	unless $h->{'char2key_prefer_last'}
6631	0	0	$k =~ /$rxCombining/ ? :
6632	0	0	unless defined $prefix
6641	0	0	if defined $f
6644	0	0	if defined $f and not $self->{'Age'}
6653	0	0	if defined $f
6656	0	0	if defined $f and not $self->{'Age'}
6667	0	0	if defined $f
6670	0	0	if defined $f and not $self->{'Age'}
6674	0	0	defined $file ? :
6676	0	0	if defined $v
6677	0	0	if defined $self->{'uniVersion'}
6682	0	0	unless $is32
6691	0	0	unless $self->{'faces'}{$F}{'[inCompose]'}
6693	0	0	if 2 > length $_
6711	0	0	if 2 > length $k
6715	0	0	if 1 < length $k
6720	0	0	if 2 > length $k
6724	0	0	if 1 < length $k
6732	0	0	unless $self->{'faces'}{$F}{'[coverage_hash]'}{$k} and not $self->{'faces'}{$F}{'[from_dia_chains]'}{$k}
6737	0	0	if $self->{'faces'}{$F}{'[coverage_hash]'}{$k}
6745	0	0	if $self->{'faces'}{$F}{'[coverage_hash]'}{$k}
6754	0	0	if 42784 >= ord $_ or $self->{'UNames'}{$_}
6756	0	0	$r->[0] < 42784 ? :
6765	0	0	if 42784 >= ord $_ || $self->{'UNames'}{$_} and not $self->{'faces'}{$F}{'[coverage_hash]'}{$_}
6766	0	0	$r->[0] < 42784 ? :
6791	0	0	if 'ARRAY' eq ref $C and $C->[3]
6792	0	0	if $expl
6797	0	0	if defined $docs
6802	0	0	unless defined $create_a_c
6804	0	0	$create_a_c > 1 && $alpha_ctrl ? :
6806	0	0	if $alpha_ctrl
6807	0	0	if $S
6810	0	0	if ($type or $c =~ /($rxZW)$/o)
6811	0	0	$alt_symb{$cc} ? :
6814	0	0	if ($type)
6818	0	0	if "\x{34f}" eq $cc
6821	0	0	unless (defined $title)
6823	0	0	if ($title and $docs)
6827	0	0	if (defined $expl and length $expl and 1)
6828	0	0	if length $title
6831	0	0	if $title and not $expl and $vbell
6832	0	0	if $aInv
6833	0	0	if $title
6834	0	0	if $title
6836	0	0	if ($type) { }
	0	0	elsif ($zw) { }
	0	0	elsif (not defined $C) { }
	0	0	elsif ($title =~ /(\b(N-ARY|BIG(?!\s+YUS\b)|GREEK\s+PROSGEGRAMMENI|KORONIS|SOF\s+PASUQ|PUNCTUATION\s+(?:GERESH|GERSHAYIM)|PALOCHKA|CYRILLIC\s.*\s(DZE|JE|QA|WE|A\s+IE)|ANO\s+TELEIA|GREEK\s+QUESTION\s+MARK)|"\w+\s+(?:BIG|LARGE))\b.*\s+\[/) { }
	0	0	elsif ($title =~ /\b(OPERATOR|SIGN|SYMBOL|PROOF|EXISTS|FOR\s+ALL|(DIVISION|LOGICAL)\b.*)\s+\[/) { }
	0	0	elsif ($title =~ /\b(RELATION|PERPENDICULAR|PARALLEL\s*TO|DIVIDES|FRACTION\s+SLASH)\s+\[/) { }
	0	0	elsif ($title =~ /\[.*\b(IPA)\b|\bCLICK\b/) { }
	0	0	elsif ($title =~ /\bLETTER\s+[AEUIYO]\b/ and $title =~ /\b(WITH|AND)\s+(HOOK\s+ABOVE|HORN)|(\s+(WITH|AND)\s+(CIRCUMFLEX|BREVE|ACUTE|GRAVE|TILDE|DOT\s+BELOW)\b){2}/) { }
	0	0	elsif (0 <= index(&UI::KeyboardLayout::lc("\x{204a}\x{1f7}\x{a765}\x{195}\x{1f6}\x{1d79}"), &UI::KeyboardLayout::lc($cc)) or 42800 <= ord $cc and 42891 > ord $cc or 43003 <= ord $cc and 43007 >= ord $cc) { }
	0	0	elsif ($title =~ /(\s+(WITH|AND)\s+((DOUBLE\s+)?\w+(\s+(BELOW|ABOVE))?)\b){2}/) { }
6857	0	0	$1 ? :
	0	0	if ($expl || '') =~ /\sSubst\{(\S*\}\s+\S)?/
6858	0	0	if $aInv
6859	0	0	join($", @types) =~ /\s/ ? :
6861	0	0	if @types
6862	0	0	$opts && $opts->{'ltr'} ? :
6863	0	0	if $aInv and $cc ne ($base_c || 'N/A')
6871	0	0	defined $file ? :
6873	0	0	if defined $v
6874	0	0	if defined $self->{'uniVersion'}
6875	0	0	if $html
6929	0	0	if defined $INV
6931	0	0	unless $self->{'faces'}{$F}{"[$_]"}
6938	0	0	if $d_seen{$c}++
6940	0	0	unless defined(my $FF = $self->{'faces'}{$F}{'[deadkeyFace]'}{$c})
6949	0	0	defined $self->{'faces'}{$F}{'faceDeadKeys'} ? :
6964	0	0	$reported ? :
6967	0	0	unless 2 == (my @D = split(//, $self->stringHEX2string($dd), 0))
6968	0	0	$reported ? :
	0	0	unless my $map1 = $self->{'faces'}{$F}{'[deadkeyFaceHexMap]'}{$self->key2hex($D[0])}
6970	0	0	unless defined(my $Dead2 = $$map1{$self->key2hex($D[1])})
6971	0	0	if 'ARRAY' eq ref $Dead2
6972	0	0	unless defined(my $ddd = $self->{'faces'}{$F}{'[deadkeyFace]'}{$Dead2})
6973	0	0	if $S{join $", @D}++
6974	0	0	if $reported
6977	0	0	if $reported
6982	0	0	if $#Dface != $lastDface
6985	0	0	if $skip < 0
6987	0	0	$skip > 1 ? :
6988	0	0	$skip > 0 ? :
6991	0	0	if $html
6996	0	0	unless $self->{'faces'}{$F}{'[geometry]'}
6999	0	0	$html ? :
7000	0	0	$html ? :
7005	0	0	unless $dFace
7008	0	0	if $docs
7009	0	0	defined $docs ? :
7012	0	0	if $html
7019	0	0	if $n >= $first_ctrl and $n < $post_ctrl or $skip_sections[$n]
7021	0	0	if $dn and not $maps[$dn]
7022	0	0	$prev =~ /\X{7}/ ? :
	0	0	$html ? :
	0	0	if length $out
7023	0	0	@{$A[$dn];} == 1 ? :
7030	0	0	unless defined $c
7032	0	0	if not $dn and 'ARRAY' eq ref $c and $c->[2]
7033	0	0	if 'ARRAY' eq ref $c
7034	0	0	unless $dn
7037	0	0	if ($dn) { }
7039	0	0	unless defined $c
7040	0	0	if ref $c
7041	0	0	$invert_dead ? :
	0	0	if 'ARRAY' eq ref $c and $c->[2]
7042	0	0	if 'ARRAY' eq ref $c
7046	0	0	if ref $c
7047	0	0	$invert_dead ? :
	0	0	if $pre or $self->{'faces'}{$F}{'[coverage0_prefix]'}{$c}
7049	0	0	unless $dn
7050	0	0	if $dn and $$is_D2{$baseK[$L][$shift]}
7052	0	0	if ($html) { }
7066	0	0	$last_in_row[$n] ? :
7067	0	0	if $html
7068	0	0	if $out_c
7070	0	0	unless $self->{'faces'}{$F}{'TableSummaryAddHTML'}
7072	0	0	unless defined $create_a_c
7076	0	0	if $html
7109	0	0	if exists $H->{'[coverage0]'}
7111	0	0	unless $H->{'[DEAD]'}
	0	0	unless $H->{'[dead_in_VK]'}
7117	0	0	if defined $_ and ref $_
	0	0	if not $after_import || $F =~ /^(.*)##Inv#([a-f0-9]{4,})$/is and grep {$_->[4] if defined $_ and ref $_;} @$k
7118	0	0	ref $_ ? :
	0	0	if defined $_ and not ref $_ && $_->[2]
	0	0	ref $_ ? :
7119	0	0	ref $_ ? :
	0	0	if defined $_
	0	0	ref $_ ? :
7120	0	0	if defined $_ and ref $_
7122	0	0	unless ($after++)
7128	0	0	if 2 > length $_
7141	0	0	unless my($F, $KKK) = $f =~ /^(.*)###([a-f0-9]{4,})$/is
7143	0	0	unless $self->{'faces'}{$f}{'[imported]'}
7144	0	0	unless my($k, $face) = $i =~ /^(.):(.*)/s
7146	0	0	if (exists $H->{'[imported2key]'}{$i} or exists $H->{'[imported2key_auto]'}{$i}) { }
	0	0	elsif ($H->{'[coverage0_prefix]'}{$k} or $H->{'[auto_dead]'}{$k}) { }
7147	0	0	exists $H->{'[imported2key]'}{$i} ? :
7151	0	0	unless defined $H->{'[first_auto_dead]'}
7157	0	0	unless my $LL = $self->{'faces'}{$face}{'[deadkeyLayers]'}{$self->key2hex($k)}
7161	0	0	if (my $over = $H->{'[AdddeadkeyLayers]'}{$KK})
7179	0	0	unless my($F, $KKK) = $f =~ /^(.*)###([a-f0-9]{4,})$/is
7180	0	0	unless my $HH = $self->{'faces'}{$F}{'[imported2key_all]'}
7188	0	0	if defined $_ and ref $_
7190	0	0	if (2 == $kk->[2]) { }
7191	0	0	defined $kk->[4] ? :
7194	0	0	unless defined $j
7212	0	0	if $self->{'Compositions'}
7213	0	0	unless $data->{'Substitutions'}
7218	0	0	unless 2 == (my @s = split(//, $s, 0))
7220	0	0	if &UI::KeyboardLayout::lc($s[0]) ne $s[0] and &UI::KeyboardLayout::lc($s[1]) ne $s[1]
7222	0	0	if &UI::KeyboardLayout::uc($s[0]) ne $s[0] and &UI::KeyboardLayout::uc($s[1]) ne $s[1]
7230	0	0	unless open my $f, '< :utf8', $F
7232	0	0	unless close $f
7241	0	0	unless open my $f, '< :utf8', $F
7243	0	0	unless close $f
7253	0	0	if @_
7277	0	0	if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/
7281	0	0	if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/
7285	0	0	if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/
7292	0	0	if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/
7293	0	0	if $F =~ /#\@?#\@?(Inv)?#\@?/
7299	0	0	unless defined(my $auto_inv_AltGr = $self->{'faces'}{$F}{'[deadkeyInvAltGrKey]'}{$d})
7301	0	0	if $b1
7303	0	0	defined $D ? :
7305	0	0	defined $S ? :
7309	0	0	if (defined $flip_AltGr)
7313	0	0	unless defined $self->{'faces'}{$F}{'[prefixDocs]'}{$flip_AltGr}
7314	0	0	unless defined $self->{'faces'}{$F}{'[Show]'}{$flip_AltGr}
7321	0	0	defined $D ? :
7323	0	0	defined $S ? :
7330	0	0	if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/
7331	0	0	if $F =~ /#\@?#\@?(Inv)?#\@?/
7333	0	0	unless $self->{'faces'}{$F}{'[output_layers]'}
7337	0	0	unless $is_extra{$deadKey}
7339	0	0	unless my $cov1 = $self->{'faces'}{$FFF}{'[coverage0]'}
7342	0	0	ref $_ ? :
7346	0	0	unless my $prefix = $self->{'faces'}{$F}{'[ComposeKey]'}
7352	0	0	if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/
7353	0	0	if $F =~ /#\@?#\@?(Inv)?#\@?/
7356	0	0	unless $self->{'faces'}{$F}{'[deadkeyFace]'}
7362	0	0	unless $self->{'faces'}{$F}{'[output_layers]'}
7365	0	0	unless (%seen0)
7372	0	0	unless $seen_prefix->{$deadKey}
7374	0	0	$is_extra{$deadKey} ? :
	0	0	unless my $cov1 = $self->{'faces'}{$FFF}{$is_extra{$deadKey} ? '[coverage0]' : '[coverage00]'}
7379	0	0	ref $_ ? :
7380	0	0	if (my $d2 = $self->{'faces'}{$F}{'[dead2]'}{$deadKey})
7383	0	0	$_ && ref $_ ? :
7388	0	0	unless ($not_in_0)
7390	0	0	unless $self->{'faces'}{$FFF}{'[coverage0_prefix]'}
7398	0	0	if not $coverage1_prefix{$_}
7401	0	0	@check > 1 ? :
7402	0	0	if @check
7425	0	0	unless exists $slot->{'klc_filename'}
7427	0	0	unless open my $fh, '< :encoding(UTF-16)', $slot->{'klc_filename'}
7444	0	0	if $slot and grep exists $slot->{$_}, ('map', 'name')
7445	0	0	if exists $o->{$kk}
7446	0	0	if exists $d->{$kk}
7733	0	0	unless $self->get_deep_via_parents($self, undef, 'faces', split(m[/], $f, 0), 'VK')
7740	0	0	unless (defined $min_sec)
7745	0	0	if ($post_main >= $min_sec)
7748	0	0	ref $_ ? :
	0	0	unless $self->{'layers'}{$l0}[$post_main - 1]
	0	0	if grep defined($_), map({ref $_ ? $_->[0] : $_;} grep(defined($_), @{[] unless $self->{'layers'}{$l0}[$post_main - 1];}))
7760	0	0	if (my $LF = $self->{'faces'}{$f}{'LinkFace'})
7763	0	0	if $post_main0 > $post_main
7766	0	0	if (defined(my $b = $self->{'faces'}{$f}{'BaseLayer'}))
7767	0	0	if defined $b and not $self->{'layers'}{$b}
7769	0	0	if $post_main0 > $post_main
7775	0	0	unless defined $create_a_c
7776	0	0	$create_a_c ? :
	0	0	$create_a_c > 1 ? :
7778	0	0	if ($create_a_c)
7784	0	0	if @ctrl_l
7793	0	0	unless length $v->[0]
7800	0	0	unless ($k, my $dead) = $k =~ /^(.+?)(\@?)$/
7801	0	0	$k eq '-1' ? :
7802	0	0	if $dead and $k ne '-1'
7803	0	0	$k eq '-1' ? :
7804	0	0	unless $c % 2
7805	0	0	$dead ? :
7806	0	0	if defined $kk
7814	0	0	if (@extra)
7819	0	0	unless ($l)
7827	0	0	if $start_append + @{$extra[$l];} > $min_sec
7833	0	0	if $self->{'layers'}{'[ini_copy]'}{$oLn}
7846	0	0	unless defined $k
7847	0	0	$dead ? :
	0	0	if my $mod = $dead ? '@' : ''
7848	0	0	if $k =~ /^[A-Z0-9]$/i
7849	0	0	if 1 != length $k or ord $k > 65535
7859	0	0	if %KeySyms
7861	0	0	unless my $names = $self->get__value('KeySyms')
7864	0	0	unless open my $fh, '<', $fn
7867	0	0	if $l =~ /\bXK_dead_(\w+)\s+0x([a-fA-F\d]+)\b/
7869	0	0	unless $l =~ m[\bXK_(\w+)\s+0x([a-fA-F\d]+)\s+/\*\s*(\()?U\+([a-fA-F\d]+)]
7870	0	0	if $dup and not $macro{$2}
7871	0	0	if $KeySyms{$1}
7874	0	0	unless $3
7875	0	0	unless $dup
7882	0	0	unless defined $k
7883	0	0	unless %KeySyms
7884	0	0	$dead ? :
	0	0	if my $mod = $dead ? 'dead_' : ''
7885	0	0	if 1 != length $k
7887	0	0	if defined $sym and !$mod || exists $deadSyms{$sym}
7888	0	0	if ($mod and my $D = $self->{'[map2diac]'}{$k})
7892	0	0	unless defined(my $SYM = $invKeySyms{$c})
7893	0	0	if exists $deadSyms{$SYM}
7894	0	0	unless $SYM =~ s/^ascii//
7895	0	0	if exists $deadSyms{$SYM}
7898	0	0	ord $k > 65535 ? :
	0	0	unless defined $sym
7899	0	0	if $mod
7906	0	0	unless defined $u->[0] and defined $u->[1] and $u->[0] ne $u->[1]
7907	0	0	if ($fix{$u->[0]} || &UI::KeyboardLayout::uc($u->[0])) eq $u->[1]
7908	0	0	if ($fix{$u->[0]} || &UI::KeyboardLayout::ucfirst($u->[0])) eq $u->[1]
7918	0	0	if ($E)
7920	0	0	unless $Ln =~ /^\s*\d+\s*$/
7921	0	0	unless $Ln < $b
7927	0	0	ref $_ ? :
	0	0	defined $_ ? :
7928	0	0	ref $_ ? :
	0	0	defined $_ ? :
7929	0	0	unless defined(my $c = $C[0])
7936	0	0	if ($extra and defined $N)
7940	0	0	if ((my $lll = $extra->[$f]) =~ /^\s*\d+\s*$/) { }
7941	0	0	unless $lll < $b
7945	0	0	unless $lll =~ s/^prefix(NOTSAME(case)?)?=//
7948	0	0	unless $LL = $self->{'faces'}{$face}{'[deadkeyLayers]'}{$c}
7953	0	0	$notsame ? :
7956	0	0	ref $_ ? :
	0	0	defined $_ ? :
7957	0	0	ref $_ ? :
	0	0	defined $_ ? :
7958	0	0	unless defined(my $c = $C[0])
7960	0	0	unless defined $CC[$sh]
7961	0	0	if defined $CC[$sh]
7962	0	0	if $num
7964	0	0	unless $OK[$sh] or $ss{"$pref$c"}
7966	0	0	if $sh and not $OK[$sh] and defined $unsh[0] and not $ss{"$unsh[1]$unsh[0]"} and not $s1{"$unsh[1]$unsh[0]"}
7967	0	0	unless $case or $sh
7968	0	0	if defined $CC[$sh]
7972	0	0	if @KK < 2 * $f
7976	0	0	unless $cnt
7992	0	0	unless my $sc = $known_scancode || $scan_codes{$k}
7997	0	0	if my $flat = $self->flatten_unit($face, $N, !$skip && ($self->{'faces'}{$face}{'[output_layers_WIN]'} || $self->{'faces'}{$face}{'[output_layers]'}))
7999	0	0	$cnt ? :
8003	0	0	if $#U > 3
8006	0	0	if @U > 2
8008	0	0	if $b and ref $b
8009	0	0	if $do_control{$b or 'N/A'}
8010	0	0	if not @cntrl and $default_bind{$k}[1]
8012	0	0	unless defined $create_a_c
8013	0	0	if $k =~ /^[A-Z]$/ and $create_a_c
8014	0	0	if $create_a_c > 1 and $shift_control_extra{$k}
8016	0	0	if $skippable and not $cnt
8019	0	0	if (my $Caps = $self->{'faces'}{$face}{'[CapsLOCKlayers]'} and defined $N)
8023	0	0	if ($skippable)
8025	0	0	if not defined $KK[$shft][0] and defined $default_bind{$k}[0][$shft]
8030	0	0	unless defined $pre_ctrl
8032	0	0	if $pre_ctrl > @KK
8034	0	0	if @KK >= 16
8036	0	0	if ($k eq 'DECIMAL')
8037	0	0	unless $decimal[1]
8053	0	0	8 <= length $k ? :
8054	0	0	32 > ord $_ ? :
	0	0	defined $_ ? :
8055	0	0	defined $_ ? :
	0	0	exists $self->{'UNames'} ? :
8057	0	0	$_ && ref $_ ? :
	0	0	unless $CL0 and @$CL0 and grep defined($_), map({$_ && ref $_ ? $_->[0] : $_;} @$CL0)
8059	0	0	defined $CL0 ? :
8062	0	0	if $capslock == 2
8063	0	0	if ($CL0)
8065	0	0	$a_cl ? :
8066	0	0	$CL0->[$_] && ref $CL0->[$_] ? :
8081	0	0	unless my(@i) = &output_unit00
8085	0	0	$i[4] ? :
8092	0	0	if $seen_scan{$i->[0]} or $seen_VK{$i->[1]}
8095	0	0	if ($decimal[0])
8101	0	0	$i->[4] ? :
8110	0	0	unless ($k =~ /^[\x00-\x{FFFF}]*$/)
8111	0	0	unless $enc_UTF16LE
8112	0	0	unless $enc_UTF16LE
8124	0	0	if $s{"$l->[0] $l->[1]"}++
8127	0	0	exists $self->{'UNames'} ? :
8128	0	0	8 <= length $l->[0] ? :
8136	0	0	unless ($ingroup)
8139	0	0	if 'ARRAY' eq ref $c
8140	0	0	unless defined $c
8141	0	0	if $seen{&UI::KeyboardLayout::uc($c)}++
8142	0	0	if $c eq ' '
8147	0	0	if $v->[0] <= $u and $v->[0] + $v->[1] > $u
8155	0	0	unless defined($k = $baseK->[$u])
8185	0	0	if $t =~ s/(^(?=DEADKEY)(?:(?:(?:DEADKEY|\s*[0-9a-f]{4,})\s+[0-9a-f]{4,})?(?:\n|\Z))*)(?=(.*))/DEADKEYS\n\n/im
8187	0	0	if length $next and not $next =~ /^(KEYNAME|LIGATURE|COPYRIGHT|COMPANY|LOCALENAME|LOCALEID|VERSION|SHIFTSTATE|LAYOUT|ATTRIBUTES|KEYNAME_EXT|KEYNAME_DEAD|DESCRIPTIONS|LANGUAGENAMES|ENDKBD)$/i
8198	0	0	if @bad = grep((!/^\s*([0-9a-f]+)\s+([0-9a-f]+)$/i), @p)
8204	0	0	if ($t =~ s/^KEYNAME_DEAD\n((?:(?:\s*[0-9a-f]{4,}\s+".*")?(?:\n|\Z))*)(?=(.*))/KEYNAMES_DEAD\n\n/im) { }
	0	0	elsif ($dead =~ /\S/) { }
8206	0	0	if length $next and not $next =~ /^(DEADKEY|KEYNAME|LIGATURE|COPYRIGHT|COMPANY|LOCALENAME|LOCALEID|VERSION|SHIFTSTATE|LAYOUT|ATTRIBUTES|KEYNAME_EXT|KEYNAME_DEAD|DESCRIPTIONS|LANGUAGENAMES|ENDKBD)$/i
8208	0	0	unless $dead =~ /\S/
8221	0	0	unless length $b <=> length $a
8225	0	0	if %miss
8460	0	0	unless 'ARRAY' eq ref $k
8470	0	0	$inv ? :
8472	0	0	if $self->{'faces'}{$b} != $L and not $remap
8478	0	0	defined $remap->{$_} ? :
8487	0	0	unless ord $c < 32 or ord $c == 127
8488	0	0	unless $control{$c}
8495	0	0	if ($invert_dead)
8496	0	0	unless $is_hex
8497	0	0	unless defined($to = $H->{'[deadkeyInvAltGrKey]'}{$to})
8499	0	0	if $is_hex
8513	0	0	unless $self->get_VK($nameF)->{'SPACE'}
8518	0	0	unless defined $maps[-1]
8528	0	0	if defined $default
8529	0	0	if ($#maps or $is_invAltGr_Base_with_chain)
8535	0	0	if ($is_invAltGr_Base_with_chain)
8536	0	0	if (my $override_InvAltGr = $H->{'[InvAltGrFace]'}{''})
8539	0	0	if defined $flip_AltGr_hex
8544	0	0	if (not $OUT_Apple and $D ne ($flip_AltGr_hex || 'n/a') and defined(my $extra = $H->{'[Prefix_Base_Altern]'}))
8546	0	0	unless my $dF = $self->{'faces'}{$nameF}{'[deadkeyFace]'}{$d}
8560	0	0	$invertAlt0 ? :
	0	0	defined $docs ? :
8572	0	0	if ($to and 'ARRAY' eq ref $to)
8574	0	0	if $EXPL
8578	0	0	if $to and $to eq '0000'
8580	0	0	if $map_n and ref $map_n
8581	0	0	if hex $n > 65535 and $map_n
8582	0	0	if ($to and hex $to > 65535)
8585	0	0	unless defined($to = $H->{'[DeadChar_32bitTranslation]'})
8590	0	0	unless $to ||= $default
8595	0	0	$invertAlt ? :
	0	0	$is_invAltGr_Base_with_chain && defined $map_AltGr_over->{$n} ? :
8596	0	0	if $alt_n and ref $alt_n
8599	0	0	defined $alt_n && $$use_dead2{&UI::KeyboardLayout::chr(hex $alt_n)} ? :
8609	0	0	if not $DEAD || $import_dead and defined $default and 127 == hex $to || 32 > hex $to and 127 == hex $n || 32 > hex $n
8612	0	0	if ($DEAD || $import_dead and $d eq $to)
8613	0	0	if (($flip_AltGr_hex || 'n/a') eq $d) { }
8623	0	0	exists $self->{'UNames'} ? :
8626	0	0	if $expl and $EXPL
8629	0	0	if $import_dead
8631	0	0	if $OUT_Apple and 32 <= hex $n and 127 != hex $n
8636	0	0	unless $keys
8662	0	0	$skip2 ? :
8663	0	0	if $skip2 and $skip2 eq 'skip2-include0'
8664	0	0	if $skip2
8667	0	0	unless $idx >= $need or defined $v[$idx]
8676	0	0	unless defined $c
8682	0	0	unless my $name = $self->{'[map2diac]'}{$dia}
8683	0	0	unless my $v = $self->{'[diacritics]'}{$name}
8684	0	0	unless my($first) = grep((128 <= ord $_), @{$$v[0];})
8685	0	0	if $c eq ' '
8688	0	0	if defined $flip_AltGr
8689	0	0	unless defined $flip_AltGr
8691	0	0	if ($c eq $dia and $prefix)
8695	0	0	unless defined $v->[4][0]
8699	0	0	if ($space->{$c}) { }
	0	0	elsif (0 <= (my $off = index("\r\t\n\e\035\034\cH\177\036\037\000", $c)) and not $prefix) { }
	0	0	elsif (not $spaces and $c =~ /^\p{Blank}$/ and not $prefix) { }
8709	0	0	unless $seen_before->{' '}
8712	0	0	if ($c eq '|' or $c eq '\\' and not $prefix)
8716	0	0	if ($N == 1 and $c_noalt and $c_noalt eq '|' || $c_noalt eq '\\')
8720	0	0	if ($c eq '/' or $c eq '?' and not $prefix)
8723	0	0	if ($c_noalt and $c_noalt eq q['] || $c_noalt eq '"')
8726	0	0	if ($c eq '_' or $c eq '-' and not $prefix)
8729	0	0	if ($N == 1 and $c_noalt and $c_noalt eq '_' || $c_noalt eq '-')
8732	0	0	if ($N == 1 and $c_noalt and $c_noalt eq ';' || $c_noalt eq ':')
8735	0	0	if ($N == 1 and defined $c_base and 0 <= (my $ind = index(q[`1234567890=[],.'], $c_base)))
8738	0	0	if ($N == 0 and 0 <= (my $ind = index('[{]}', $c)) and not $prefix)
8741	0	0	if ($N == 1 and $c_noalt and $c_noalt eq '/' || $c_noalt eq '?')
8755	0	0	if ref $c2
8756	0	0	if defined $c2 and not $pref
8771	0	0	unless my $h = $self->{'Compositions'}{$d}
8775	0	0	if $caseseen{$c}
8778	0	0	if $_ ne $c and $seen{$_}
	0	0	unless my(@case) = grep({&UI::KeyboardLayout::lc($_) eq &UI::KeyboardLayout::lc($c) if $_ ne $c and $seen{$_};} &UI::KeyboardLayout::lc($c), &UI::KeyboardLayout::uc($c))
8785	0	0	if grep $self->{'Compositions'}{$dia}{$_}, @$cases
8801	0	0	if ((my($pre, $mid, $post) = split(/(\+|--)/, $dia, 2)) > 1)
8808	0	0	if $dia =~ /^!?\\/
8810	0	0	unless ($dia =~ /^-?(\p{NonspacingMark}|<(?:font=)?[-\w!]+>|(maybe_)?[ul]c(first)?|dectrl)$/)
8811	0	0	unless my $name = $self->{'[map2diac]'}{$dia}
8812	0	0	unless my $v = $self->{'[diacritics]'}{$name}
8813	0	0	unless defined($dia = $v->[4][0])
8815	0	0	if ($dia =~ /^(-)?<(reverse-)?any(1)?-(other-)?\b([-\w]+?)\b((?:-![-\w]+\b)*)>$/) { }
8820	0	0	if $cached = $cached_aggregate_Compositions{$dia_raw}
8823	0	0	if @except
8829	0	0	length $_ > 1 ? :
8830	0	0	length $_ > 1 ? :
8833	0	0	unless $AA cmp $BB or $A cmp $B
8834	0	0	if $other
8835	0	0	if $one
8836	0	0	if $rev
8837	0	0	if (@out > 1 and not $neg)
8843	0	0	if $neg
8853	0	0	if @_
8854	0	0	unless ref($a || '') eq 'ARRAY'
8860	0	0	if @_
8861	0	0	unless defined $a
8862	0	0	unless ref($a || '') eq 'ARRAY'
8880	0	0	unless defined $c and defined $doc
8881	0	0	if $old and ref $old and defined $old->[3]
8882	0	0	unless ref $c
8883	0	0	if defined $doc
8912	0	0	unless defined $name
8913	0	0	if ($name =~ m(^Imported\[([/\w]+)(?:,([\da-fA-F]{4,}))?\]$))
8914	0	0	$2 ? :
8915	0	0	unless defined $d
8916	0	0	unless my $fromKBDD = $self->get_deep($self, 'DEADKEYS', @sec, &UI::KeyboardLayout::lc($d), 'map')
8919	0	0	unless defined $c
	0	0	if 'ARRAY' eq ref $c
	0	0	unless defined($c = $$fromKBDD{$self->key2hex($c)})
8921	0	0	if $name =~ /^Imported(\[.*)/s
8922	0	0	if $translators{$name}
8923	0	0	if ($name =~ /^PrefixDocs\[(.+)\]$/)
8927	0	0	if ($name =~ /^Show\[(.+)\]$/)
8931	0	0	if ($name =~ /^HTML_classes\[(.+)\]$/)
8932	0	0	if (my @c = split(/,/, "$1", 0)) % 3
8942	0	0	if ($name =~ /^Space(Self)?2Id(?:\[(.+)\])?$/)
8943	0	0	defined $2 ? :
8944	0	0	$1 ? :
8945	0	0	if 'ARRAY' eq ref $c
8946	0	0	$c eq ' ' || $c eq $self_OK && defined $dia ? :
8948	0	0	if ($name =~ /^ShiftFromTo\[(.+)\]$/)
8952	0	0	unless defined $c
	0	0	if 'ARRAY' eq ref $c
8954	0	0	if ($name =~ /^SelectRX\[(.+)\]$/)
8956	0	0	unless defined $c
	0	0	if 'ARRAY' eq ref $c
	0	0	unless $c =~ /$rx/
8958	0	0	if ($name =~ /^FlipShift$/)
8959	0	0	unless defined $c
8961	0	0	if ($name =~ /^AssignTo\[(\w+),(\d+)\]$/)
8963	0	0	unless my $S = $start_SEC{$sec}
8964	0	0	if $cnt > $S->[1]
8965	0	0	unless $slot < $cnt
8968	0	0	if ($name =~ /^FromTo(FlipShift)?\[(.+)\]$/)
8977	0	0	$_ && ref $_ ? :
8978	0	0	$_ && ref $_ ? :
8979	0	0	if ($flip) { }
8980	0	0	defined($kk = $fr[$_]) ? :
8982	0	0	defined($kk = $fr[$_]) ? :
8985	0	0	unless defined $c
	0	0	if 'ARRAY' eq ref $c
8987	0	0	if ($name =~ /^InheritPrefixKeys\[(.+)\]$/)
8995	0	0	unless my $C = $baseL->[$k][$shift]
8996	0	0	unless ref $C and $C->[2]
9000	0	0	unless defined $c
	0	0	if 'ARRAY' eq ref $c and $c->[2]
	0	0	unless $h{"@_ $c"}
9002	0	0	if ($name =~ /^ByColumns\[(.+)\]$/)
9003	0	0	length $_ ? :
9004	0	0	unless my $g = $self->{'faces'}{$face}{'[geometry]'}
9015	0	0	if $L or $shift or $k >= $tot
9017	0	0	if ($name =~ /^ByRows\[(.+)\]$/)
9022	0	0	unless length $rec
9028	0	0	unless my $g = $self->{'faces'}{$face}{'[geometry]'}
9040	0	0	if $k >= $tot or $#recipes < (my $r = $r{$k})
9041	0	0	unless $subs[$r]
9044	0	0	if ($name =~ /^(?:Diacritic|Mutate)(SpaceOK)?(Hack)?(2Self)?(DupsOK)?(32OK)?(?:\[(.+)\])?$/)
9046	0	0	defined $6 ? :
9047	0	0	if ($toSelf)
9048	0	0	if grep $_, $hack, $spaceOK, $dupsOK, $w32OK
9050	0	0	unless $self->get_VK($face)->{'SPACE'}
9053	0	0	if defined $flip_AltGr
9054	0	0	if defined $flip_AltGr
9063	0	0	if $Dia =~ s/^\+//
9066	0	0	if defined $f
9069	0	0	if defined $f and not $self->{'Age'}
9075	0	0	unless exists $self->{'faces'}{$face}{"Named_DIA_Recipe__$R"}
9078	0	0	if $isPrimary
9081	0	0	if 1 == @Dia
9082	0	0	if (1 < @Dia) { }
9083	0	0	if @Dia > 3
9085	0	0	if @Dia2 > 2
9087	0	0	unless $have4
9088	0	0	@Dia2 > 1 ? :
9089	0	0	if not $have4 and @Dia == 3
9094	0	0	if @G
9095	0	0	if @G
9106	0	0	unless grep defined($_), $self->flatten_arrays($K)
9110	0	0	unless defined $base
9111	0	0	if ref $base
9112	0	0	if not $spaceOK and $base eq ' '
9115	0	0	if @groups2
9116	0	0	if @groups3
9117	0	0	@groups2 ? :
	0	0	if @groups3
9119	0	0	$_ && ref $_ ? :
	0	0	$hack ? :
9121	0	0	$_ ? :
	0	0	$_ ? :
	0	0	$_ ? :
	0	0	$_ ? :
	0	0	$_ ? :
9122	0	0	unless $sorted2
	0	0	unless $sorted3
9129	0	0	if ($sorted2)
9152	0	0	$_ && ref $_ ? :
9155	0	0	!$_ || ref $_ ? :
9159	0	0	unless $extra->[1]
9163	0	0	unless (defined $o->[0] and defined $o->[1])
9165	0	0	!defined($_) || ref $_ ? :
9167	0	0	$_ && ref $_ ? :
9174	0	0	$_ && ref $_ ? :
	0	0	unless $_
	0	0	$hack ? :
9180	0	0	if ($name =~ /^DefinedTo\[(.+)\]$/)
9182	0	0	unless defined $c
9184	0	0	if ($name =~ /^ByPairs((Inv)?Prefix)?(Apple)?\[(.+)\]$/)
9190	0	0	unless $p =~ s/^((?:\p{Blank}\p{NonspacingMark}|(?:\b\.)?[0-9a-f]{4,}\b(?:\.\b)?|.){2})//i
9198	0	0	unless 2 == scalar(my @c = split(//, $Pair, 0))
9200	0	0	if exists $Map{$c[0]}
9201	0	0	$invert ? :
	0	0	$prefix ? :
9204	0	0	unless %Map
9205	0	0	if ($Apple)
9209	0	0	unless defined $c
	0	0	if 'ARRAY' eq ref $c
9212	0	0	unless defined $map
9213	0	0	unless (exists $map->{'map'})
9215	0	0	if %$map and not $k1 =~ /^[0-9a-f]{4,}$/
9216	0	0	unless defined $deadkey
9219	0	0	unless exists $$Map{&UI::KeyboardLayout::chr(hex $deadkey)}
9220	0	0	if %$Map
9221	0	0	unless %$map
9223	0	0	unless defined $map->{'map'}
9227	0	0	unless defined $c
	0	0	if 'ARRAY' eq ref $c
9245	0	0	unless defined $Tr
9257	0	0	ref $for_layers ? :
9258	0	0	if $for_layers
9268	0	0	unless grep {not exists $self->{'layers'}{$_};} @new_names
9273	0	0	if ($cvt) { }
9285	0	0	unless defined $key
9286	0	0	unless grep defined($_), @$key
9288	0	0	unless defined $k
9289	0	0	defined $k->[0] ? :
	0	0	ref $k ? :
9298	0	0	if $last != $#o
9313	0	0	if exists $self->{'layers'}{join $", @layers}
9324	0	0	if defined $l->[$k][$kk] and not defined $keys[$k][$kk]
9343	0	0	if ($whole)
9347	0	0	ref $_ ? :
9355	0	0	if ($whole) { }
9362	0	0	if exists $self->{'layers'}{$name}
9371	0	0	if $ch and ref $ch
9372	0	0	if $rch and ref $rch
9375	0	0	defined $rch ? :
	0	0	$whole ? :
	0	0	if defined $ch and not defined $keys[$k][$kk] and $whole ? !$seen[$k]{$ch} : $ch ne (defined $rch ? $rch : '')
9403	0	0	if @_
9410	0	0	if $self->{'faces'}{$f}{'layers'}
9411	0	0	unless $self->{'face_recipes'}{$f}
9413	0	0	unless defined(my $n = $self->{'faces'}{$base}{'numLayers'})
9422	0	0	unless (defined $r or defined $R)
9423	0	0	if ($face =~ /^(\w+)(?:(\x{2074})|\x{2084})$/)
9424	0	0	$2 ? :
9427	0	0	unless $R or defined $r
9428	0	0	if $R
9446	0	0	$full ? :
	0	0	unless $full ? undef : $self->{'faces'}{$face}{'[ini_layers_prefix]'} || $self->{'faces'}{$face}{'[ini_layers]'} or $self->{'faces'}{$face}{'layers'}
9454	0	0	if exists $self->{'layer_recipes'}{$ll}
9456	0	0	if $self->{'layers'}{$l}
9463	0	0	if ($recipe eq 'LinkFace')
9464	0	0	unless my $L = $self->{'faces'}{$face}{'LinkFace'}
9467	0	0	if $recipe eq 'Self'
9468	0	0	if ($recipe =~ /^Layers\((.*\+.*)\)$/)
9473	0	0	if ($recipe eq 'FlipLayersLinkFace')
9474	0	0	unless my $L = $self->{'faces'}{$face}{'LinkFace'}
9478	0	0	if $recipe eq 'FlipLayers'
9486	0	0	$m1 ? :
	0	0	if $recipe =~ /^(Full)?(?:(Face)|FlipLayers)\((.*)\)$/ and $m1 = $2, 1
9489	0	0	if ($recipe =~ /^prefix(NOTSAME(case)?)?=(.+)$/)
9494	0	0	unless my $layers = $self->{'faces'}{$face}{'[deadkeyLayers]'}{$hexPrefix}
9495	0	0	if $N or not $notsame
9497	0	0	if $self->{'layers'}{$name}
9506	0	0	ref $sh ? :
	0	0	if defined $sh
9510	0	0	$notsame && !$N ? :
9513	0	0	ref $_ ? :
	0	0	defined $_ ? :
9514	0	0	ref $_ ? :
	0	0	defined $_ ? :
9515	0	0	if not defined $CC[$sh] and defined $C[0]
9516	0	0	if not $OK[$sh] and defined $C[0] and not $ss{$C[0]}
9518	0	0	if $sh and not $OK[$sh] and defined $C[0] and defined $was[0] and not $ss{$was[0]} and not $s1{$was[0]}
9519	0	0	unless $sh
9548	0	0	unless my $r = $self->{'face_recipes'}{$1}
9552	0	0	unless my(@parts) = grep(/\S/, $self->join_min_paren_brackets_matched('', split(/(\s+)/, $recipe, 0)))
9554	0	0	if (@parts > 1)
9560	0	0	if $noid
9564	0	0	if $recipe =~ /^(prefix(?:NOTSAME(?:case)?)?=.*|(FlipLayers)?LinkFace|FlipLayers|Self|((Full)?(Face|FlipLayers)|Layers)\([^()]+\))$/
9567	0	0	if ($recipe =~ /\)$/) { }
9568	0	0	if ($recipe =~ /^[^(]*\[/) { }
9571	0	0	if $self->brackets_match_q(substr($recipe, 0, 1 + pos($recipe)))
9573	0	0	unless $pos
9578	0	0	unless ($recipe, $ARG) = $recipe =~ /^(.*?)\((.*)\)$/s
9584	0	0	if ($recipe =~ /^If(Not)?Prefix\[(.*)\]$/s)
9588	0	0	if defined $deadkey and ($neg xor grep(($_ eq $deadkey), @prefix))
9592	0	0	if (length $ARG) { }
9593	0	0	if (exists $self->{'layers'}{$ARG}) { }
	0	0	elsif (not ref $ARG) { }
9596	0	0	if exists $self->{'layer_recipes'}{my $a = $ARG}
9600	0	0	if $noid
9612	0	0	unless my $r = $self->get_deep($self, 'faces', my @p = split(m[/], $face, 0), '[Diacritic_if_undef]')
9622	0	0	if defined $default
9632	0	0	if $KK eq ''
9634	0	0	if defined $flip_AltGr and defined $$chain{$KK and $self->charhex2key($KK)}
9639	0	0	if ($KK eq '' and defined $flip_AltGr)
9642	0	0	if ($H->{'[InvdeadkeyLayers]'}{$KK})
9658	0	0	unless ($H->{'[autodead_wrapped]'})
9660	0	0	if $o >= 4096 and $H->{'[ad_can_wrap]'} and not $H->{'[autodead_wrapped]'}++
9662	0	0	if ($H->{'[autodead_wrapped]'})
9673	0	0	if ('ARRAY' eq ref $recipe)
9690	0	0	if @FF == 1 or $FF[-1] eq 'VK'
9694	0	0	if $H->{'PartialFace'}
9695	0	0	if $F =~ m[/] and exists $H->{'layers'}
9703	0	0	unless $k =~ /^DeadKey_(Inv|Add)?Map([0-9a-f]{4,})?(?:_(\d+))?$/i
9706	0	0	if defined $key
9708	0	0	defined $layers ? :
9718	0	0	if $$H{"[${inv}deadkeyLayersCreated]"}{$hexPrefix}{$layers and join $", @$layers}++
9724	0	0	if $massage and not $inv
9739	0	0	unless defined $hexPrefixWas
9744	0	0	$inv && "$inv $hexPrefix" eq 'Inv 0000' ? :
9747	0	0	$layers eq 'All' ? :
9757	0	0	if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/
9760	0	0	defined $flip_AltGr ? :
9767	0	0	$key ne '' ? :
9778	0	0	if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/
9780	0	0	if $H->{'PartialFace'}
9781	0	0	unless $H->{'[deadkeyLayers]'}
9785	0	0	if defined $first_auto_dead
9790	0	0	unless defined $H->{'[deadkeyLayers]'}{$KK}[$layer]
9809	0	0	if @FF == 1 or $FF[-1] eq 'VK'
9812	0	0	unless $H->{'[PrefixChains]'}
9814	0	0	if $_
9815	0	0	unless length(my $trail_nonprefix = $prefix[-1])
9817	0	0	unless @prefix > 1
9825	0	0	unless my $KF = $H->{'[deadkeyFace]'}{$KK}
9843	0	0	if @FF == 1 or $FF[-1] eq 'VK'
9858	0	0	if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/
9860	0	0	unless $H->{'[deadkeyLayers]'}
9862	0	0	if @$expl % 2
9870	0	0	unless defined $H->{'[first_auto_dead]'} and grep defined($_), map($self->flatten_arrays($_), map($self->{'layers'}{$_}, @$LL[1 .. $#$LL]))
9871	0	0	unless exists $H->{'[deadkeyInvAltGrKey]'}{''}
9873	0	0	exists $$expl{$self->charhex2key($KK)} ? :
9877	0	0	unless defined(my $flip_AltGr = $H->{'[Flip_AltGr_Key]'})
9879	0	0	if exists $H->{'[deadkeyInvAltGrKey]'}{''}
9881	0	0	unless $H->{'chainAltGr'}
9885	0	0	unless exists $H->{'[deadkeyInvAltGrKey]'}{$KK}
9891	0	0	if length $prev
9905	0	0	if (%$Map)
9906	0	0	unless defined $c
	0	0	if ref $c
9912	0	0	$inv ? :
9920	0	0	$prefix ? :
9922	0	0	if $inv
9924	0	0	if @K
9932	0	0	$short ? :
9933	0	0	$short ? :
	0	0	$b & 1 << $_ ? :
9934	0	0	if $short
9936	0	0	if $col == 15
9943	0	0	if $F->{'baseKeysWin'}
9947	0	0	if defined $b and not $self->{'layers'}{$b}
9948	0	0	defined $b ? :
9959	0	0	if (not $c->[0]) { }
9960	0	0	unless $k =~ /^[A-Z0-9]$/
9965	0	0	unless defined $k
9974	0	0	if defined $$b[$o->{$vk}]
9975	0	0	unless defined $$b[$o->{$vk}]
9993	0	0	if $dummyDscr
9995	0	0	if $LLL > 63
10002	0	0	if (grep $$F{"[$_]"}, ('LRM_RLM', 'ALTGR', 'SHIFTLOCK')) { }
10007	0	0	if ($dummy) { }
10025	0	0	if $h{'DO_LIGA'}
10039	0	0	if defined $f and not $self->{'Age'}
10042	0	0	if defined $flip_AltGr_hex
10044	0	0	if $F->{'[only_extra]'}{$self->charhex2key($deadKey)}
10046	0	0	if defined $auto_inv_AltGr
10050	0	0	$auto_inv_AltGr ? :
10066	0	0	unless $F->{'[mods_keys_KBD]'}
10069	0	0	if $#$mods < $#$mods_keys
10072	0	0	defined $MOD ? :
10073	0	0	unless ($mod =~ /\S/)
10087	0	0	unless defined $pre_ctrl
10089	0	0	unless defined $create_a_c
10090	0	0	$create_a_c > 1 ? :
10091	0	0	if @cols >= 16
10115	0	0	unless defined $h{'OSX_ID'}
10117	0	0	if (defined $v and defined $h{'OSX_ADD_VERSION'})
10118	0	0	if ($h{'OSX_ADD_VERSION'} > 0) { }
	0	0	elsif ($h{'OSX_ADD_VERSION'} < -1) { }
	0	0	elsif ($h{'OSX_ADD_VERSION'} == -1) { }
10132	0	0	if $dupk
10137	0	0	defined $file ? :
10138	0	0	if defined $v
10139	0	0	if defined $self->{'uniVersion'}
10148	0	0	if defined $flip_AltGr_hex
10151	0	0	if $F->{'[only_extra]'}{$self->charhex2key($deadKey)}
10153	0	0	if defined $auto_inv_AltGr
10172	0	0	if ($out =~ /^hex[46]\z/) { }
10437	0	0	if $cache->{$i}
10438	0	0	unless my $In = $t->{$i}
10446	0	0	if @$expand < 2 or not $expand->[0] =~ /^[01]$/
10448	0	0	if $expand->[0] =~ /^[01]$/
10455	0	0	if $i =~ /^\w/
10525	0	0	if ($s =~ /^\@\@\@\s+The\s+Unicode\s+Standard\s+(.*?)\s*$/i)
10528	0	0	if ($s =~ /^([\da-f]+)\b\s*(.*?)\s*$/i)
10534	0	0	if (defined $kk)
10536	0	0	if $name =~ /\bCOMBINING\b/ and not $_c =~ /\p{NonSpacingMark}/
10537	0	0	if ($name =~ /^(.*?)\s+(?:(WITH)\s+|(?=(?:OVER|ABOVE|PRECEDED\s+BY|BELOW(?=\s+LONG\s+DASH))\s+\b(?!WITH\b|AND\b)))(.*?)\s*$/)
10541	0	0	if ($with and @ext > 1)
10549	0	0	if ($name =~ /^(.*)\s+(?=OR\s)(.*?)\s*$/)
10552	0	0	if (($t = $name) =~ s/\b(COMBINING(?=\s+CYRILLIC\s+LETTER)|BARRED|SLANTED|APPROXIMATELY|ASYMPTOTICALLY|(?
10554	0	0	if $t =~ /\bEPIGRAPHIC\b/
10556	0	0	if $candidates{$k}[-1][1] =~ /\bLUNATE\b/
10558	0	0	if $t =~ /\bSMALL\s+CAPITAL\b/
10561	0	0	if (($t = $name) =~ s/\b(WHITE|BLACK|CIRCLED)\s+//)
10564	0	0	if (($t = $name) =~ s/\bBLACK\b/WHITE/)
10567	0	0	if (($t = $name) =~ s/^(?:RAISED|MODIFIER\s+LETTER(?:\s+RAISED)?(\s+LOW)?)\s+//)
10568	0	0	$1 ? :
10570	0	0	if (($t = $name) =~ s/\bBUT\s+NOT\b/OR/)
10573	0	0	if (($t = $name) =~ s/(^LATIN\b.*\b\w)UM((?:\s+ROTUNDA)?)$/$1$2/)
10576	0	0	if (167 == hex($k) >> 8 and ($t = $name) =~ s/\b(\w|CO|VEN)(?!\1)(\w)$/$2/)
10579	0	0	if (($t = $name) =~ s/(?:(\bMIDDLE-WELSH)\s+)?\b(\w)(?=\2$)//)
10580	0	0	$1 ? :
10582	0	0	if (($t = $name) =~ s/\b(APL\s+FUNCTIONAL\s+SYMBOL)\s+\b(.*?)\b\s*\b((?:UNDERBAR|TILDE|DIAERESIS|VANE|STILE|JOT|OVERBAR|BAR)(?!$))\b\s*/$2/)
10589	0	0	if (($t = $name) =~ s/\b(APL\s+FUNCTIONAL\s+SYMBOL)\s+\b(.*?)\b\s*\b(QUAD(?:(?!$)|(?!\2))|(?:UNDERBAR|TILDE|DIAERESIS|VANE|STILE|JOT|OVERBAR|BAR)$)\b\s*/$2/) { }
	0	0	elsif (($t = $name) =~ s/\b(APL\s+FUNCTIONAL\s+SYMBOL)\s+//) { }
10600	0	0	if (($t = $name) =~ s/\b(LETTER\s+SMALL\s+CAPITAL)/CAPITAL LETTER/)
10603	0	0	if (($t = $name) =~ s/\b(LETTER\s+)E([SZN])[HG]$/$1$2/ or ($t = $name) =~ s/(?<=\bLETTER\sV\s)WITH\s+RIGHT\s+HOOK$// or ($t = $name) =~ s/\bDOTLESS\s+J\s+WITH\s+STROKE$/J/ or $name eq 'LATIN SMALL LETTER SCHWA' and $t = 'DIGIT ZERO')
10612	0	0	if $name =~ /^GREEK\s/
10616	0	0	if ($s =~ /^\@\@\s+([\da-f]+)\b/i)
10617	0	0	unless $s =~ /^\@\@\s+([\da-f]+)\s.*\s([\da-f]+)\s*$/i
10621	0	0	if $s =~ /^\s+:\s*([0-9A-F]+(?:\s+[0-9A-F]+)*)/
10622	0	0	if $s =~ /^\s+#\s*(?:(<.*?>)\s+)?([0-9A-F]+(?:\s+[0-9A-F]+)*)/
10624	0	0	unless $a
10625	0	0	if ($a->[-1] eq '')
10628	0	0	unless $name =~ /^(?:MATHEMATICAL\s+)?((?:(?:BLACK-LETTER|FRAKTUR|BOLD|ITALIC|SANS-SERIF|DOUBLE-STRUCK|MONOSPACE|SCRIPT)\b\s*?)+)(?=\s+(?:SMALL|CAPITAL|DIGIT|NABLA|PARTIAL|N-ARY|\w+\s+SYMBOL)\b)/ or $name =~ /^HEBREW\s+LETTER\s+(WIDE|ALTERNATIVE)\b/ or $name =~ /^(ARABIC\s+MATHEMATICAL(?:\s+(?:INITIAL|DOTLESS|STRETCHED|LOOPED|TAILED|DOUBLE-STRUCK))?)\b/ or $name =~ /^(PLANCK|INFORMATION)/
10633	0	0	if $1
10636	0	0	if $type
10639	0	0	unless @$a > 2
10641	0	0	unless $a->[-1] eq '' or @$a == 3 and &UI::KeyboardLayout::chr(hex $a->[-2]) =~ /\W|\p{Lm}/ and not $a->[-1] =~ /^[-1]) =~ /\w/
10654	0	0	if not $name and $k =~ /^[12]?F[89A]..$/ || hex $base >= 19968 && hex $base <= 40908
10655	0	0	unless $name
10656	0	0	if ((my $NN = $name) =~ s/\s+OPERATOR$//)
10658	0	0	unless $operators{$NN}
10664	0	0	if @$map % 2
10670	0	0	if ($shift)
10672	0	0	unless $F ne $from and $T ne $to
10680	0	0	unless (my $l = my $name = $G{$g}) =~ s/^GREEK\b/LATIN/
10681	0	0	unless my $L = $N{$l}
10684	0	0	unless my($lat, $first, $rest, $add) = $l =~ /^(LATIN\s+(?:SMALL|CAPITAL)\s+LETTER\s+(\w))(\w+)(?:\s+(\S.*))?$/
10685	0	0	if "$first$rest" eq 'PHI'
10686	0	0	unless my $LL = $N{$lat}
10687	0	0	defined $add ? :
10711	0	0	if (my $with = my $raw = $Cand->[1]) =~ s/\s+(SIGN|SYMBOL|(?:FINAL|ISOLATED|INITIAL|MEDIAL)\s+FORM)$//
10716	0	0	if $raw =~ /-SYMBOL$/ and 0 <= index($append, 'SYMBOL')
10720	0	0	unless $N{$b}
10721	0	0	unless $N{$b}
10722	0	0	unless $N{$b}
10723	0	0	unless $N{$b}
10724	0	0	unless $N{$b}
10725	0	0	unless $N{$b}
10726	0	0	unless $N{$b}
10727	0	0	unless $N{$b}
10728	0	0	unless $N{$b}
10729	0	0	unless $N{$b}
10731	0	0	if not $N{$b} or $with =~ /smallcaps/
10732	0	0	unless $N{$b}
10733	0	0	unless $N{$b}
10734	0	0	unless $N{$b}
10735	0	0	unless $N{$b}
10736	0	0	unless $N{$b}
10737	0	0	unless $N{$b}
10738	0	0	unless $N{$b}
10740	0	0	unless $N{$b}
10742	0	0	if not $N{$b} and $N{"GREEK SMALL LETTER $b"}
10747	0	0	if (defined($base = $N{$b}))
10748	0	0	if $base eq $c
10749	0	0	if $t
10755	0	0	if (defined $base) { }
	0	0	elsif ($raw =~ /\bOPERATOR$/) { }
10758	0	0	if exists $operators{$Cand->[0]}
10760	0	0	unless defined $base
10762	0	0	/^[\da-f]{4,}$/i ? :
10765	0	0	if ($b =~ s/\s+(OPERATOR|SIGN)$//)
10766	0	0	if defined($base = $N{$b})
10770	0	0	unless $operators{$b}
10777	0	0	unless &fromHEX($a) <=> &fromHEX($b)
10781	0	0	if @exp < 2
10782	0	0	if @exp < 3
10786	0	0	unless &fromHEX($a) <=> &fromHEX($b)
10788	0	0	if $seen_compose{"$compat; @exp"}++
10789	0	0	@exp > 3 ? :
10792	0	0	if $compose{join $", @exp} and not join($", @exp) =~ /<(font|pseudo-upgrade)>/ and $c ne $compose{join $", @exp}[0][1] and not $known_dups{$c}
10797	0	0	unless &fromHEX($a) <=> &fromHEX($b)
10807	0	0	if $seen_compose{"$compat; $v->[$off]; @r"}++
10809	0	0	unless $compose{join $", @r}
10811	0	0	if @r == 1
10814	0	0	if $_->[1] ne $c
10827	0	0	unless $UI::KeyboardLayout::a->[0] <=> $UI::KeyboardLayout::b->[0]
10836	0	0	@_ ? :
10837	0	0	if defined $f
10841	0	0	$_->[0] ? :
10847	0	0	if @_ == 1
10849	0	0	unless &fromHEX($a) <=> &fromHEX($b)
10851	0	0	unless &fromHEX($a) <=> &fromHEX($b)
10853	0	0	$_->[0] ? :
10861	0	0	@_ ? :
10862	0	0	if defined $f
10868	0	0	$_->[0] ? :
10876	0	0	if $self->{'Compositions'}
10877	0	0	unless $self->{'[Substitutions]'}
10878	0	0	unless open my $f, '<', $comp
10880	0	0	unless close $f
10883	0	0	unless &fromHEX($a) <=> &fromHEX($b)
10884	0	0	unless &fromHEX($a) <=> &fromHEX($b)
10892	0	0	if $comb
10899	0	0	unless open my $f, '<', $fn
10902	0	0	unless close $f
10910	0	0	unless @_
10918	0	0	if $verbose and exists $UName_v{$c} and $vbell || 9834 != ord $c
10919	0	0	if (not exists $self->{'UNames'} or $verbose)
10924	0	0	if ($verbose and %$i || $A)
10928	0	0	if $vbell and 9834 == ord $c
10929	0	0	if length $scr
10931	0	0	if $verbose and $vbell || 9834 != ord $c
10934	0	0	$c =~ /[\x{d800}-\x{dfff}\x00-\x1f\x7f-\xAF]/ ? :
	0	0	unless $self->{'UNames'}{$c}
10940	0	0	if $l =~ /^\s*(#|$)/
10941	0	0	unless $l =~ /^([0-9a-f]{4,})(?:\.\.([0-9a-f]{4,}))?\s*;\s*(\d\.\d)\b/i
10955	0	0	unless defined $C
10956	0	0	if 'ARRAY' eq ref $C
10958	0	0	if ($undo)
10959	0	0	unless my $dec = $self->{'Decompositions'}{$C}
10964	0	0	if (@out)
10966	0	0	if @out > 1 and not $warned_decomposed{join $;, $C, $M}++
10973	0	0	if ($unAltGr)
10974	0	0	unless $unAltGr = $unAltGr->{$C}
10978	0	0	if $a1 and not $seen{$a1->[0][1]}++
10980	0	0	unless defined(my $a2 = $self->{'Compositions'}{$comp}{$C}) or @seen == 2
10982	0	0	if $a2 and $a1 and @seen == 2 and $a1->[0][1] ne $a2->[0][1]
10987	0	0	unless my($r) = grep(defined($_), map($self->compound_composition($_, $C), @$m))
10988	0	0	unless @$r == 1 or $C eq ' '
10995	0	0	unless defined $C
10996	0	0	if 'ARRAY' eq ref $C and defined $C->[3]
10997	0	0	if length $doc1
10998	0	0	if 'ARRAY' eq ref $C
11003	0	0	if ($m =~ /^(?:-|(?:[ul]c(?:first)?|dectrl)$)/) { }
11004	0	0	if ($m =~ s/^-//) { }
	0	0	elsif ($m eq 'lc') { }
	0	0	elsif ($m eq 'uc') { }
	0	0	elsif ($m eq 'ucfirst') { }
	0	0	elsif ($m eq 'dectrl') { }
11008	0	0	$_->[1] eq &UI::KeyboardLayout::lc($_->[1]) || 1 != length &UI::KeyboardLayout::lc($_->[1]) ? :
11010	0	0	$_->[1] eq &UI::KeyboardLayout::uc($_->[1]) || 1 != length &UI::KeyboardLayout::uc($_->[1]) ? :
11012	0	0	$_->[1] eq &UI::KeyboardLayout::ucfirst($_->[1]) || 1 != length &UI::KeyboardLayout::ucfirst($_->[1]) ? :
11014	0	0	32 <= ord $_->[1] ? :
11023	0	0	unless @res
11031	0	0	unless $CC
11032	0	0	$ini && ref $ini && defined $ini->[3] ? :
11036	0	0	unless defined $C
11038	0	0	if defined $in
11040	0	0	unless @res
11064	0	0	$_ && 'ARRAY' eq ref $_ ? :
11067	0	0	unless defined $char
11071	0	0	if ((my $P = $M) =~ s/^(!)?\\(\\)?//)
11074	0	0	if ($P =~ s/\[(.*)\]$//)
11078	0	0	unless $match
11081	0	0	if ($neg) { }
11082	0	0	$strong ? :
11084	0	0	$strong ? :
11095	0	0	$_ && ref $_ ? :
	0	0	defined $_ ? :
11098	0	0	if (defined $Res2[$shift]) { }
11099	0	0	if $Res3[$shift]
11108	0	0	defined $_ ? :
11111	0	0	!defined($_) || !$dupsOK && $seen{$_->[1]}++ ? :
11112	0	0	defined $_ ? :
11113	0	0	defined $_ ? :
11115	0	0	defined $_ ? :
11116	0	0	65536 > ord($_ || 0) ? :
	0	0	unless $w32OK
11118	0	0	if not !$compat[$_]
11119	0	0	unless my $cnt = grep(defined($_), @res2)
11125	0	0	$OK{$res2[$_]} ? :
	0	0	$ok{$res2[$_]} ? :
11130	0	0	if defined $_
	0	0	if $double_occupancy and grep {$Penalize{$_} if defined $_;} @res2
11131	0	0	if defined $_
	0	0	if ($double_occupancy and grep {$penalize{$_} if defined $_;} @res2) { }
11137	0	0	unless $cnt
11138	0	0	if (not $double_occupancy and $cnt == 2 and 1)
11144	0	0	defined $res2[0] ? :
11145	0	0	if @$penalty > 1 and defined $res2[1] and $p gt $penalty->[1]
11148	0	0	defined $res2[$_] ? :
11168	0	0	if 'ARRAY' eq ref($k || 0)
11169	0	0	unless defined $k
11170	0	0	if defined $k and not $k =~ /[^\x{2503}\x{250b}\x{2551}\x{2502}\x{2506}\s]/
11172	0	0	unless $bold1
11173	0	0	unless $bold
11179	0	0	if ($prio2++)
11185	0	0	if ($double2++)
11192	0	0	unless defined(my $k = $set->[$shift])
11193	0	0	if ref $k
11194	0	0	if $k =~ /$rxCombining/
11195	0	0	if (2 * $layer + $shift >= $#L)
11214	0	0	unless defined $k and defined $k->[0] || defined $k->[1]
11216	0	0	ref $_ ? :
	0	0	if $_
11218	0	0	if $LL and $L and defined $k->[$_] and defined $LL->[$L][$_]
11219	0	0	if (my $special = grep($_, @need_special))
11220	0	0	$prepend ? :
	0	0	if $special == grep(defined($_), @$k)
11223	0	0	$need_special[$_] ? :
11224	0	0	!$need_special[$_] ? :
11225	0	0	$prepend ? :
11227	0	0	$prepend ? :
11230	0	0	unless $cnt
11231	0	0	unless $prepend
11232	0	0	if $prepend
11241	0	0	$backwards ? :
11243	0	0	if --$limit < 0
11248	0	0	if ($both)
11249	0	0	unless $penalty_group->[1][$L]
	0	0	unless $penalty_group->[1][0]
	0	0	unless $penalty_group->[1] and @{[] unless $penalty_group->[1][$L];} or @{[] unless $penalty_group->[1][0];}
11253	0	0	$L ? :
11255	0	0	unless $set and @$set
11256	0	0	if ($group_both)
11257	0	0	$backwards ? :
11258	0	0	if $groupN <= $ignore_groups
11259	0	0	if $store_level
11264	0	0	$backwards ? :
11268	0	0	unless $lc_ok or $uc_ok
11271	0	0	if defined $have_out and $found_both || $have_out eq $uc_ok
11273	0	0	$have_both ? :
11274	0	0	$both ? :
11276	0	0	unless ($groupN <= $ignore_groups or defined $have_out and $have_out eq $uc_ok)
11281	0	0	if ($can_splice) { }
11283	0	0	unless $backwards
11288	0	0	if $groupN <= $ignore_groups
11289	0	0	if ($can_return)
11290	0	0	if ($found_both) { }
11291	0	0	if $_
	0	0	if $store_level
11294	0	0	if $store_level
11301	0	0	$lc_ok ? :
11307	0	0	if $store_level
11842	0	0	$opt->{'fake'} ? :
11847	0	0	$opt->{'fake'} ? :
11892	0	0	unless $kmap
11893	0	0	if ref $c
11894	0	0	unless defined($c = $$kmap{$self->key2hex($c)})
11895	0	0	unless ref $c
11907	0	0	if $base
11912	0	0	join($", @extra) =~ /\s/ ? :
11913	0	0	@extra ? :
11923	0	0	if @_ & 1
11926	0	0	if $c =~ (shift())
11935	0	0	defined $_ && ref $_ ? :
11940	0	0	defined $_ ? :
11946	0	0	if ($prefix2 or $uc eq &UI::KeyboardLayout::ucfirst($lc) and $lc eq &UI::KeyboardLayout::lc($uc) and $lc ne "\337" and defined $lc1 == defined $uc1) { }
11947	0	0	if ($uc ne $lc)
11950	0	0	if ref $_
11951	0	0	if $prefix2 and $pref_i[1] and not $pref_i[0]
11952	0	0	if $LC and ref $LC and $LC->[2]
11956	0	0	1 < length &UI::KeyboardLayout::uc($lc1) ? :
	0	0	if defined $lc1 and &UI::KeyboardLayout::uc($lc1) ne &UI::KeyboardLayout::ucfirst($lc1)
11958	0	0	if $name
11959	0	0	join($", @$extra) =~ /\s/ ? :
11961	0	0	@$extra ? :
11962	0	0	$base ? :
11975	0	0	$name ? :
11977	0	0	join($", @$ee) =~ /\s/ ? :
11978	0	0	$base ? :
11988	0	0	/^\w+=/ ? :
11991	0	0	$opts{'oneRow'} ? :
12001	0	0	if $new_row->{$kn}
12010	0	0	if $opts{'oneRow'}
12018	0	0	if $arg =~ s[^/opt=][]
12019	0	0	unless my($classes, $name, $f, $prefix, $which) = $arg =~ /^((?:[-\w]+(?:,[-\w]+)*)?)\+([-\w]*)=(\w+),([\da-f]{4}|[^\x20-\x7e][^,]*|[02]?),(\d+|-)$/i
12021	0	0	if exists $self->{'face_shortcuts'}{$f}
12022	0	0	unless $which eq '-'
12026	0	0	if $L and not $self->{'layers'}{$L->[$which]}
12028	0	0	unless $L ||= $self->{'faces'}{$f}{'layers'} || $self->export_layers($f, $f)
12029	0	0	unless my $kmap = $self->{'faces'}{$f}{'[deadkeyFaceHexMap]'}{$self->key2hex($prefix)} or not length $prefix
12036	0	0	unless @opt == 1
12038	0	0	unless $self->{'faces'}{$face0}{'[geometry]'}
12039	0	0	unless @g
12043	0	0	if grep /^rtl-hover(-Trivia)?$/, @$opt
12045	0	0	if grep /^rtl-hover-Trivia$/, @$opt
12450	0	0	if shift()
12457	0	0	unless $post
12458	0	0	unless my(@pre) = $pre =~ /<(\w+)>/g
12459	0	0	unless my($p) = $post =~ /"(.+?)"/
12462	0	0	exists $dec_dotcompose{$_} ? :
	0	0	exists $KeySyms{$_} ? :
12470	0	0	if /^\s*(#|include\b)/
12471	0	0	unless /\S/
12472	0	0	unless my(@in) = $self->dec_dotcompose($_, $dec_U)
12487	0	0	unless @_
12490	0	0	unless defined $h->{$k}
12492	0	0	if ('HASH' ne ref $h)
12493	0	0	unless $term
12499	0	0	if (exists $h->{$k}) { }
12500	0	0	if (not ref $h->{$k}) { }
	0	0	elsif ($term and 'HASH' eq ref $h) { }
12516	0	0	ref $term ? :
12518	0	0	if ref $term
12524	0	0	if ($massage)
12527	0	0	unless $in[0] eq 'CP'
12533	0	0	unless 1 != length $_
	0	0	if 1 != length $out or 65536 <= ord $out or grep {65536 <= ord $_ unless 1 != length $_;} @in or grep(($out eq $_), @in)
12541	0	0	if ($method eq 'dotcompose') { }
	0	0	elsif ($method eq 'entity') { }
	0	0	elsif ($method eq 'rfc1345') { }
12548	0	0	unless $line =~ /^\s*
12554	0	0	if length $in > $avoid_overlong_synonims_Entity * length($in[0]) or length $in > $maxEntityLen
12562	0	0	unless $line =~ /^\s+SP\s+0020\s+SPACE\s*$/ .. $line =~ m[^
12563	0	0	unless $line =~ /^\s+(\S+)\s+([a-fA-F\d]{4})\s/
12565	0	0	if "$2" =~ /^e0/i
12567	0	0	if 1 == length $in
12579	0	0	unless open my $fh, '< :encoding(utf8)', $fn
12581	0	0	unless close $fh
12587	0	0	if 'HASH' ne ref($to->{$k} || {})
12588	0	0	unless exists $to->{$k}
12595	0	0	unless my $names = $self->get__value($key)
12624	0	0	exists $added->{$_} ? :
12625	0	0	unless ($added->{$a} || '') cmp ($added->{$b} || '')
12626	0	0	if $c =~ /^\[(G?Prefix(_Show)?|Added)\]$/
12628	0	0	if (ref $v and $seen{"$v"}) { }
	0	0	elsif (ref $v) { }
12634	0	0	if exists $added->{$c}
12636	0	0	if $name_append eq $self->charhex2key($prefixCompose)
12637	0	0	if $name_show eq $self->charhex2key($prefixCompose)
12638	0	0	if $name_append =~ /\s/
12643	0	0	if defined $v->{'[Prefix_Show]'}
12660	0	0	if ref $hexH->{$h}
12661	0	0	unless defined(my $to = $$charH{my $c = &UI::KeyboardLayout::chr(hex $h)})
12662	0	0	if ref $to
12665	0	0	if ref $back
12667	0	0	if exists $$hexH{$to = $self->key2hex($to)}
12671	0	0	$now ? :
12673	0	0	if %add
12675	0	0	if keys %$delay
12682	0	0	ref($_ || 0) ? :
12689	0	0	if ($prefix and ref $prefix) { }
12702	0	0	unless $self->{'[ComposeArrays]'}
12703	0	0	unless (@Arrays)
12708	0	0	unless ($arr = $self->create_composeArray($pref->[0], $pref->[1]) and @$arr)
12709	0	0	if $pref->[2]
12727	0	0	if grep {not $v->{$_} || $vv->{$_};} @in
12745	0	0	if $linked
12748	0	0	if (@hashes and defined $pref->[4] and length $pref->[4]) { }
	0	0	elsif ($first_prefix) { }
12750	0	0	if $hashes[-1]{$pref->[4]}
12760	0	0	if length $pref0
12761	0	0	if ref $Comp_show and length $$Comp_show[$IDX->[$i]]
12763	0	0	unless @hashes
12769	0	0	unless my $p = $h->{'[GPrefix]'}
12770	0	0	$c ? :
12772	0	0	unless (defined $comp_show)
12774	0	0	$c ? :
12775	0	0	if (ref $Comp_show) { }
12802	0	0	defined $_ && /^\w$/ ? :
	0	0	if ($use_base || 0) > 0
12804	0	0	if $#AppleMap >= 127
12806	0	0	unless $use_base
12808	0	0	$use_base ? :
	0	0	if not defined $c and defined $I
12809	0	0	if (($use_base || 0) < 0) { }
	0	0	elsif ($use_base) { }
12811	0	0	if (not defined $c) { }
	0	0	elsif ($c =~ /^[A-Z]$/) { }
	0	0	elsif (not $c =~ m[^[-0-9=.*/+]$]) { }
12819	0	0	if (not defined $c) { }
	0	0	elsif (defined($tr = $oem_control{$c})) { }
12829	0	0	unless defined $c
12834	0	0	if ref $c
12835	0	0	if ref $c
12838	0	0	if not $d and $caps
12839	0	0	if $d > 0
12840	0	0	if $d < 0
12842	0	0	$M ? :
12843	0	0	if $M or $d > 0
12844	0	0	$M ? :
	0	0	$d > 0 ? :
	0	0	$d || $M ? :
12845	0	0	$how eq 'output' ? :
12883	0	0	unless defined $k or defined $kraw
12886	0	0	unless my $flat = $self->flatten_unit($face, $N, $self->{'faces'}{$face}{'[output_layers_XKB]'} || $self->{'faces'}{$face}{'[output_layers]'})
12890	0	0	if (my $Caps = $self->{'faces'}{$face}{'[CapsLOCKlayers]'} and defined $N)
12894	0	0	unless (defined $KK[0][0] or defined $KK[1][0])
12897	0	0	if defined $default_bind{$k}[0][$shft]
12902	0	0	if ($k eq 'DECIMAL')
12903	0	0	unless $decimal->[1]
12906	0	0	unless $finalize
12922	0	0	unless my $cl_type = $CapsTypes{$cl_idx}
12927	0	0	$_ && ref $_ ? :
	0	0	unless $CL0 and @$CL0 and grep defined($_), map({$_ && ref $_ ? $_->[0] : $_;} @$CL0)
12928	0	0	defined $CL0 ? :
12930	0	0	if $capslock == 2
12931	0	0	if ($CL0)
12933	0	0	$a_cl ? :
12934	0	0	$CL0->[$_] && ref $CL0->[$_] ? :
12959	0	0	if @$decimal and ++$decimal->[2]
13055	0	0	if ($lst[$i] eq "\267") { }
13065	0	0	unless $kVK =~ /^\s*(#)|([A-F\d]{2})\s+(\?+|\w+)\s*(.*)/i
13066	0	0	if $1
13070	0	0	if (length $rest)
13071	0	0	unless (my($HEX, $lit, $sp), $comment) = $rest =~ /^(?:(?:([A-F\d]{2})|([^\w\s+])|(SPACE|\+))\s*)?(?:#\s*(.*))?$/i
13073	0	0	if ($sp) { }
	0	0	elsif ($HEX) { }
13074	0	0	unless $rest = $map{$sp}
13081	0	0	unless $idx > $last or not defined $lst[$idx]
13116	0	0	if $F->{'Apple2layout'}
13117	0	0	unless @AppleMap
13118	0	0	if $#AppleMap >= 127
13127	0	0	if defined $$b[$o->{$vk}]
13128	0	0	unless defined $$b[$o->{$vk}]
13137	0	0	unless defined $k
13138	0	0	if exists $AppleSym{$kk}
13139	0	0	if exists $AppleSym{$Apple_recode{$kk} or 123}
13140	0	0	if exists $AppleSym{$k}
13141	0	0	if exists $AppleSym{$Apple_recode{$k} or 123}
13142	0	0	if exists $AppleSym{CORE::ucfirst(CORE::lc $k) . 'Arrow'}
13143	0	0	if exists $AppleSym{CORE::ucfirst CORE::lc $k}
13144	0	0	if $Apple_skip{$k}
13148	0	0	unless defined $A[$i]
13149	0	0	if defined $AA[$A[$i]]
13153	0	0	if defined $AA[$i] or not +($AppleSym[$i] || '') =~ /^#(.)$/ or not defined $AA[$AppleSym{$1}]
13156	0	0	if @o
13189	0	0	if $to - $from > 255
13193	0	0	if defined $out
13194	0	0	if defined $next
13196	0	0	if defined $out
13198	0	0	if defined $next
13199	0	0	if defined $out
13211	0	0	unless ($HEX =~ /[0-9a-f]/i)
13212	0	0	$do_hex5 ? :
13244	0	0	$do_hex5 ? :
13254	0	0	if $HEX =~ /[01]/
13258	0	0	if $do_hex5 and not $HEX =~ /[01]/
13263	0	0	if $do_hex5 and $HEX =~ /1/
13266	0	0	if $do_hex5 and $HEX =~ /0/
13269	0	0	if $HEX =~ /0/
13275	0	0	unless $HEX =~ /0/
13279	0	0	if $do_hex5 and not $HEX =~ /0/
13291	0	0	$merge_states_6_and_4 && !$use_plan_c ? :
13292	0	0	$use_plan_c ? :
13293	0	0	$use_plan_c ? :
13294	0	0	$use_plan_c ? :
13305	0	0	if ($use_plan_c) { }
13317	0	0	if ($use_plan_c)
13318	0	0	$merge_states_6_and_4 ? :
13328	0	0	$merge_states_6_and_4 ? :
13335	0	0	unless ($merge_states_6_and_4)
13337	0	0	$use_plan_c ? :
13359	0	0	$do_hex5 ? :
13408	0	0	if (53248 <= ord $c and 57343 >= ord $c) { }
13436	0	0	defined $_ && /^\w$/ ? :
	0	0	if ($use_base || 0) > 0
13437	0	0	unless @AppleMap
13438	0	0	if $#AppleMap >= 127
13442	0	0	unless $use_base
13444	0	0	$use_base ? :
	0	0	if not defined $c and defined $I
13445	0	0	if (($use_base || 0) < 0) { }
	0	0	elsif ($use_base) { }
13447	0	0	if (not defined $c) { }
	0	0	elsif ($c =~ /^[A-Z]$/) { }
	0	0	elsif (not $c =~ m[^[-0-9=.*/+]$]) { }
13456	0	0	if (not defined $c) { }
	0	0	elsif (defined($tr = $OEM2cmd{$c})) { }
	0	0	elsif ($c eq 'SPACE') { }
	0	0	elsif (defined($tr = $oem_control{$c})) { }
13468	0	0	unless defined $c
13470	0	0	unless defined $c
13473	0	0	if ref $c
13474	0	0	if ref $c
13477	0	0	if not $d and $caps
13478	0	0	if $d > 0
13479	0	0	if $d < 0
13481	0	0	$M ? :
13482	0	0	if $M or $d > 0
13483	0	0	$M ? :
	0	0	$d > 0 ? :
	0	0	$d || $M ? :
13484	0	0	$how eq 'output' ? :
13496	0	0	$M ? :
13497	0	0	$pref ? :
13503	0	0	$pref ? :
13507	0	0	unless $M
13515	0	0	if $d >= 0
13516	0	0	if ($d > 0) { }
	0	0	elsif ($d < 0) { }
13529	0	0	if $doHEX and $v->[0] =~ /^[-u\x20_+=0-9a-f]\z/i
13540	0	0	unless $override->{'extra_actions'}
13541	0	0	if $e{'hex4'}
13544	0	0	unless (%$act)
13549	0	0	unless $out->[2]
13553	0	0	unless $v = $dd->{$k} and $v->[1]
13557	0	0	$use_plan_b ? :
	0	0	$use_plan_c ? :
13560	0	0	if ($term and not $do_initing)
13568	0	0	if !!$do_initing != !!$v->[1]
13570	0	0	if ($term)
13572	0	0	unless defined $Show
13582	0	0	$do_initing && !$term ? :
13595	0	0	if $term and $doHEX and not $do_initing