| line |
true |
false |
branch |
|
89
|
9 |
1 |
if ($#_ == 0) { } |
|
115
|
0 |
9 |
unless $S->_load_registry |
|
116
|
1 |
8 |
if (not $parH) { } |
|
120
|
7 |
1 |
if (not ref $parH) { } |
|
126
|
0 |
1 |
if ($$parH{'STARTUP'}) |
|
131
|
8 |
0 |
if ($csid) |
|
132
|
0 |
8 |
unless $S->_csid($S->_real_id($csid)) |
|
178
|
5 |
1 |
if ($#_ == 0) { } |
|
224
|
0 |
0 |
unless $csid = $S->id($csid) |
|
225
|
0 |
0 |
if $S->_noise > 0 |
|
247
|
0 |
0 |
unless $csid = $S->id($csid) |
|
248
|
0 |
0 |
unless $binpath |
|
249
|
0 |
0 |
unless $binpath |
|
250
|
0 |
0 |
if $S->_noise > 0 |
|
267
|
70 |
0 |
if @_ |
|
|
18 |
52 |
if @_ |
|
270
|
0 |
0 |
$S->Startup ? : |
|
271
|
0 |
6 |
$S->Startup ? : |
|
272
|
0 |
0 |
$S->Startup ? : |
|
280
|
0 |
0 |
if ($S->Startup) { } |
|
285
|
0 |
0 |
if (%registry) { } |
|
290
|
0 |
0 |
if ($S->_IMap) |
|
296
|
0 |
0 |
if (%mappings) |
|
306
|
0 |
24 |
unless (%registry) |
|
309
|
24 |
0 |
if defined $registry{$csid} |
|
313
|
0 |
0 |
unless $k and $v |
|
314
|
0 |
0 |
if ($csid =~ /^$k$/i) { } |
|
318
|
0 |
0 |
if (/^$csid$/i) |
|
325
|
0 |
0 |
unless $id |
|
335
|
0 |
16 |
unless $csid = $S->_real_id($csid) |
|
336
|
0 |
16 |
unless $S->_load_TMap($csid) |
|
342
|
0 |
16 |
ref $srcR ? : |
|
346
|
0 |
16 |
if ($S->_noise > 2) |
|
347
|
0 |
0 |
$to =~ /^to_unicode$/i ? : |
|
357
|
4 |
12 |
if ($#n == 0) { } |
|
371
|
0 |
16 |
if ($destR) { } |
|
421
|
11 |
5 |
if $mappings{$csid} |
|
422
|
0 |
5 |
unless $S->_read_binary_to_TMap($csid) |
|
435
|
0 |
5 |
unless -f $file |
|
438
|
0 |
5 |
unless open MAP1, $file |
|
444
|
0 |
5 |
if $size != -s $file |
|
448
|
3 |
2 |
if ($size > 4096) { } |
|
449
|
3 |
0 |
if $S->_noise > 0 |
|
451
|
0 |
2 |
if $S->_noise > 2 |
|
454
|
0 |
5 |
unless $S->_read_binary_mapping($buf, 0, \%U, \%C) |
|
458
|
3 |
2 |
if ($size > 4096) { } |
|
459
|
3 |
0 |
if $S->_noise > 0 |
|
461
|
0 |
2 |
if $S->_noise > 2 |
|
507
|
0 |
0 |
unless defined $S->_IMap |
|
508
|
0 |
0 |
unless $id and $registry{$id} |
|
509
|
0 |
0 |
if ($style =~ /^keld$/i) { } |
|
|
0 |
0 |
elsif ($style =~ /^reverse$/i) { } |
|
|
0 |
0 |
elsif (not $style or $style =~ /^unicode$/i) { } |
|
517
|
0 |
0 |
if ($vendor and $unicode) { } |
|
530
|
0 |
0 |
unless my(@file) = $S->readTextFile($path) |
|
533
|
0 |
0 |
if $com |
|
534
|
0 |
0 |
unless $_ |
|
535
|
0 |
0 |
if /^CHARMAP/i |
|
537
|
0 |
0 |
if ($k =~ //i) |
|
538
|
0 |
0 |
if ($k =~ //i) |
|
544
|
0 |
0 |
if $com |
|
545
|
0 |
0 |
unless /$escx([^\s]+)\s+]+)/ |
|
555
|
0 |
3 |
unless $filePath |
|
556
|
0 |
3 |
unless -f $filePath |
|
559
|
0 |
3 |
unless open FILE, $filePath |
|
563
|
0 |
3 |
unless close FILE |
|
575
|
0 |
0 |
unless my(@file) = $S->readTextFile($file) |
|
581
|
0 |
0 |
if $row_unicode < $row_vendor |
|
584
|
0 |
0 |
if ($row_vendor > $row_unicode) { } |
|
600
|
0 |
0 |
if ($comment_info and not /#/) |
|
603
|
0 |
0 |
if ($comment_info) |
|
604
|
0 |
0 |
if ($comment_authress and /^#\s*$/ || /^#[^:]:/) |
|
607
|
0 |
0 |
if (/#\s*name\S*:\s*(.*$)/i) |
|
610
|
0 |
0 |
if (/#\s*unicode\s*version\S*:\s*(.*$)/i) |
|
613
|
0 |
0 |
if (/#\s*table\s*version\S*:\s*(.*$)/i) |
|
616
|
0 |
0 |
if (/#\s*date\S*:\s*(.*$)/i) |
|
619
|
0 |
0 |
if ($comment_authress) { } |
|
|
0 |
0 |
elsif (/#\s*Author\S*:\s*(.*$)/i) { } |
|
620
|
0 |
0 |
if /^#\s*(.+$)/ |
|
626
|
0 |
0 |
unless $_ |
|
627
|
0 |
0 |
unless /^$gap1$hex$gap2$hex/i |
|
631
|
0 |
0 |
if (index($f, '+') >= 0) { } |
|
636
|
0 |
0 |
if (index($t, '+') < 0) { } |
|
645
|
0 |
0 |
if (index($t, '+') < 0) { } |
|
669
|
0 |
0 |
if (ref $$U1{$_}) { } |
|
685
|
0 |
0 |
unless my $IMap = $S->_IMap->{$csid} |
|
688
|
0 |
0 |
unless open MAP4, ">$path" |
|
703
|
0 |
0 |
unless $subMapping |
|
726
|
0 |
0 |
unless $mapH and %$mapH |
|
728
|
0 |
0 |
if ($n2 * $size2 > 65535) |
|
734
|
0 |
0 |
unless $bs1S |
|
740
|
0 |
0 |
if ($n1 == 1) { } |
|
748
|
0 |
0 |
if ($n1 > 1) { } |
|
754
|
0 |
0 |
if ($n == 0) |
|
756
|
0 |
0 |
if ($n > 255) |
|
763
|
0 |
0 |
if ($n2 == 1) { } |
|
772
|
0 |
0 |
if ($n2 == 1) { } |
|
816
|
0 |
0 |
if (length $str > 255) |
|
854
|
6 |
3 |
if $registry_loaded |
|
856
|
0 |
3 |
if $S->_noise > 2 |
|
858
|
0 |
3 |
unless my(@file) = $S->readTextFile($path) |
|
866
|
153 |
3 |
unless $_ |
|
867
|
3 |
0 |
if /^DEFINE:/i |
|
871
|
90 |
21 |
unless $_ |
|
872
|
3 |
18 |
if /^DATA:/i |
|
875
|
0 |
18 |
if (defined $ENV{$k}) { } |
|
879
|
18 |
0 |
unless ($v =~ s/^'(.*)'$/$1/) |
|
884
|
0 |
9 |
if (defined $ENV{$_}) { } |
|
|
3 |
6 |
elsif ($_ eq '$') { } |
|
|
6 |
0 |
elsif (defined $var{$_}) { } |
|
900
|
3 |
15 |
if ($v eq '~' or $v =~ m[^~/]) |
|
917
|
699 |
1551 |
unless ($_) |
|
918
|
270 |
429 |
if $name |
|
929
|
1092 |
459 |
if ($arg_s{$k}) { } |
|
|
459 |
0 |
elsif ($arg_a{$k}) { } |
|
935
|
0 |
3 |
if $S->_noise > 2 |
|
940
|
0 |
3 |
unless $ENV{'HOME'} or eval '(getpwuid($<))[7]' |
|
947
|
270 |
3 |
$aliasL ? : |
|
979
|
0 |
3 |
unless $MAP_Path |
|
1007
|
7 |
6 |
if ($Unicode::Map::WARNINGS & 4096) |
|
1009
|
2 |
5 |
if $msg |
|
1016
|
0 |
6 |
if ($Unicode::Map::WARNINGS & 8192) |
|
1018
|
0 |
0 |
if $msg |