| line |
true |
false |
branch |
|
137
|
0 |
0 |
if defined $i
|
|
160
|
0 |
0 |
if defined $i and $i
|
|
161
|
0 |
0 |
if $_assume eq 'utf8'
|
|
181
|
0 |
0 |
if defined $i
|
|
215
|
27 |
0 |
unless defined $ignore_errors
|
|
226
|
58 |
422 |
if (substr($marc8, $index, 1) =~ /(\s+|\x0A+|\x0D+)/so)
|
|
235
|
56 |
366 |
if ($new_index > $index)
|
|
246
|
8 |
358 |
$charset eq '1' ? :
|
|
252
|
358 |
8 |
if ($char_size == 1) { }
|
|
254
|
338 |
20 |
if ($codepoint >= 33 and $codepoint <= 126) { }
|
|
|
17 |
3 |
elsif ($codepoint >= 161 and $codepoint <= 254) { }
|
|
|
1 |
2 |
elsif ($codepoint >= 136 and $codepoint <= 142) { }
|
|
|
2 |
0 |
elsif ($codepoint >= 27 and $codepoint <= 31) { }
|
|
273
|
0 |
366 |
unless $code
|
|
280
|
11 |
355 |
if ($code->is_combining) { }
|
|
291
|
6 |
5 |
unless (defined $code->marc_left_half)
|
|
306
|
0 |
0 |
unless ($found)
|
|
311
|
0 |
0 |
unless ($ignore_errors)
|
|
316
|
0 |
0 |
if ($_assume)
|
|
358
|
21 |
0 |
unless defined $ignore_errors
|
|
361
|
2 |
115 |
exists $SPECIAL_DECOMPOSABLE{$_} ? :
|
|
373
|
10 |
110 |
if ($slice eq ' ')
|
|
382
|
0 |
110 |
unless ($code)
|
|
385
|
0 |
0 |
unless $ignore_errors
|
|
389
|
17 |
93 |
if ($code->is_combining)
|
|
392
|
2 |
15 |
if ($code->marc_left_half)
|
|
397
|
2 |
0 |
if ($code->marc_value eq substr($marc8, -1, 1))
|
|
404
|
4 |
11 |
if ($code->marc_right_half)
|
|
414
|
87 |
6 |
if ($code->default_charset_group eq 'G0' and $G0 ne $charset_value) { }
|
|
|
2 |
5 |
elsif ($code->default_charset_group eq 'G1' and $G1 ne $charset_value) { }
|
|
417
|
76 |
11 |
if ($G0 eq 's' and $charset_value eq 'B') { }
|
|
440
|
10 |
11 |
if ($G0 ne $DEFAULT_G0)
|
|
442
|
10 |
0 |
if ($DEFAULT_G0 eq 's') { }
|
|
|
0 |
0 |
elsif ($DEFAULT_G0 eq '1') { }
|
|
448
|
2 |
19 |
if ($G1 ne $DEFAULT_G1)
|
|
450
|
0 |
2 |
if ($DEFAULT_G1 eq '1') { }
|
|
502
|
366 |
56 |
unless substr($$str_ref, $left, 1) eq "\e"
|
|
506
|
0 |
56 |
if $left + 1 >= $right
|
|
512
|
10 |
42 |
if ($esc_char_1 eq 'g' or $esc_char_1 eq 'b' or $esc_char_1 eq 'p' or $esc_char_1 eq 's')
|
|
522
|
0 |
42 |
if $left + 2 >= $right
|
|
527
|
33 |
9 |
if ($esc_char_1 eq '(' or $esc_char_1 eq ',') { }
|
|
|
7 |
2 |
elsif ($esc_char_1 eq ')' or $esc_char_1 eq '-') { }
|
|
|
2 |
0 |
elsif ($esc_char_1 eq '$') { }
|
|
|
0 |
0 |
elsif ($esc_chars eq '$,' and $left + 3 < $right) { }
|
|
|
0 |
0 |
elsif ($esc_chars eq '$)' || $esc_chars eq '$-' and $left + 3 < $right) { }
|