line |
true |
false |
branch |
50
|
731 |
0 |
if (@_ % 2 == 0) { } |
|
0 |
0 |
elsif (@_ == 1) { } |
59
|
731 |
0 |
if (-f $args{'file'}) { } |
64
|
4 |
727 |
if ($args{'include_paths'}) |
66
|
4 |
0 |
if (ref $args{'include_paths'} eq 'ARRAY') { } |
72
|
6 |
1 |
if length $_ |
74
|
4 |
727 |
if $args{'debug'} |
105
|
96 |
979 |
unless ($self->{'_list_index_map'}) |
140
|
10 |
3686 |
if (@args and $self->{'debug'}) |
167
|
24 |
398 |
unless (defined $self->{'_attached_files'}) |
170
|
420 |
2 |
if (defined $arg) { } |
243
|
622 |
407 |
unless (defined $self->{'_doc_language_code'}) |
248
|
597 |
25 |
if ($self->_language_mapping->{$lang}) |
258
|
64 |
0 |
unless (defined $self->{'_doc_language'}) |
269
|
60 |
101 |
@out ? : |
275
|
32 |
2 |
unless $self->other_language_codes |
276
|
2 |
32 |
@out ? : |
281
|
0 |
62 |
unless $lang |
283
|
61 |
1 |
if ($self->_language_mapping->{$lang}) { } |
284
|
60 |
1 |
if ($lang ne $self->language_code) |
285
|
5 |
55 |
unless $self->other_language_codes |
|
11 |
49 |
unless (grep {$_ eq $lang;} @{[] unless $self->other_language_codes;}) |
313
|
0 |
674 |
unless open my $fh, "<:encoding(UTF-8)", $file |
328
|
2234 |
17637 |
if ($in_meta) |
330
|
632 |
1602 |
if ($line =~ /^\s*$/s) { } |
|
842 |
760 |
elsif ($line =~ /^\#([A-Za-z0-9_-]+)(\s+(.+))?$/s) { } |
|
86 |
674 |
elsif ($lastdirective) { } |
341
|
24 |
818 |
unless (length $dir) |
344
|
17 |
825 |
if (exists $directives{$dir}) |
347
|
783 |
59 |
if (defined $material) { } |
363
|
1560 |
18311 |
if ($in_meta) { } |
|
19 |
18292 |
elsif ($options{'directives_only'}) { } |
392
|
4 |
651 |
if (my(@include_paths) = $self->include_paths) |
397
|
11 |
27 |
if ($l =~ /^#include\s+(.+?)\s*$/) |
398
|
2 |
9 |
if (my $lines = $self->_resolve_include($1, \@include_paths)) |
417
|
6 |
5 |
if (grep {/^\./;} @dirs, $file) |
422
|
2 |
3 |
if (grep {m([/\\]);} @dirs, $file) |
427
|
1 |
2 |
unless $file |
436
|
2 |
0 |
if (-e $final and -T $final) |
437
|
0 |
2 |
unless open my $fh, "<:encoding(UTF-8)", $final |
452
|
2 |
0 |
if (@out) { } |
469
|
636 |
158 |
unless (defined $self->{'raw_header'}) |
489
|
17 |
621 |
unless (defined $self->{'raw_body'}) |
497
|
2 |
0 |
unless (defined $self->{'directives_array'}) |
513
|
12532 |
6261 |
if (my $el = $self->_construct_element($l)) |
521
|
63 |
13096 |
if ($el->type eq "versep") |
533
|
45 |
13114 |
if ($el->type eq "bidimarker") |
535
|
0 |
45 |
unless my $dir = $dirs{$el->block} |
536
|
15 |
30 |
if ($current_direction and $current_direction ne $dir) { } |
542
|
6 |
24 |
if $current_direction |
554
|
1438 |
11721 |
if ($el->type eq 'li' or $el->type eq 'dd') { } |
|
3020 |
8701 |
elsif ($el->type eq 'regular') { } |
|
2117 |
6584 |
elsif ($el->type ne 'null') { } |
555
|
1101 |
337 |
if ($self->_list_pile_count) { } |
|
315 |
22 |
elsif ($self->_list_element_can_be_first($el)) { } |
557
|
208 |
893 |
if (_indentation_kinda_major($el, $self->_list_pile_last_element)) { } |
563
|
893 |
0 |
if ($self->_list_pile_count) { } |
564
|
779 |
114 |
if ($self->_list_element_is_same_kind_as_in_list($el) and $self->_list_element_is_a_progression($el)) { } |
598
|
185 |
2835 |
if ($self->_list_pile_count) |
618
|
556 |
17093 |
if ($el->type eq 'footnote' or $el->type eq 'secondary_footnote') { } |
|
883 |
16210 |
elsif (my $fn_indent = $self->_current_footnote_indent) { } |
622
|
644 |
239 |
if ($el->type eq 'null') { } |
|
98 |
141 |
elsif ($el->can_be_regular and $el->indentation and _kinda_equal($el->indentation, $fn_indent)) { } |
644
|
172 |
16823 |
if ($el->can_be_regular) { } |
658
|
2442 |
14897 |
if ($el->type eq 'startblock') { } |
|
2441 |
12456 |
elsif ($el->type eq 'stopblock') { } |
|
31 |
21768 |
elsif (@pile and $el->should_close_blocks) { } |
661
|
0 |
2442 |
unless $el->block |
665
|
25 |
2416 |
unless ($exp and $exp->block eq $el->block) |
668
|
0 |
25 |
if $exp |
680
|
15 |
16 |
if ($block->block eq 'rtl' || $block->block eq 'ltr' and not $close_rtl{$el->type}) { } |
709
|
627 |
381 |
unless (defined $self->{'_parsed_document'}) |
712
|
1008 |
0 |
if (defined wantarray) { } |
729
|
1 |
1904 |
unless $arg |
730
|
1904 |
0 |
if ($arg =~ /(\{[1-9][0-9]*\}|\[[1-9][0-9]*\])/) { } |
736
|
1628 |
276 |
if (exists $self->_raw_footnotes->{$arg}) { } |
753
|
2507 |
53 |
if (@_) |
761
|
2507 |
17093 |
if (@_) |
771
|
0 |
19600 |
unless defined $l |
776
|
420 |
19180 |
if ($l =~ /\A
(\s*)
(\#([A-Za-z][A-Za-z0-9-]+)\x{20}*)
(.*)
\z
/sx) |
798
|
7972 |
11628 |
if ($l =~ /^[\n\t ]*$/s) |
803
|
394 |
11234 |
if ($l =~ /^(<($blockre)>\s*)$/s) |
809
|
45 |
11189 |
if ($l =~ /^((\<\<\<|\>\>\>)\s*)$/s) |
816
|
15 |
11174 |
if ($l =~ m(^(
(
\<
(/?)
\[
([a-zA-Z-]+)
\]
\>
)
\s*
)$)sx) |
828
|
7 |
8 |
$close ? : |
835
|
75 |
11099 |
if ($l =~ /^(\{\{\{)\s*$/s) |
842
|
75 |
11024 |
if ($l =~ /^(\}\}\})\s*$/s) |
849
|
369 |
10655 |
if ($l =~ m[^(($blockre)>\s*)$]s) |
856
|
787 |
9868 |
if ($l =~ /^((\*{1,5}) )(.+)$/s) |
862
|
182 |
9686 |
if ($l =~ /^(\> )(.*)/s) |
868
|
35 |
9651 |
if ($l =~ /^(\>)$/s) |
874
|
544 |
9107 |
if ($l =~ /^(\x{20}+)/s and $l =~ /\|/) |
880
|
30 |
9077 |
if ($l =~ /^\|+(\x{20}+|\+)/s) |
885
|
92 |
8985 |
if ($l =~ /^(\;)(\x{20}+(.*))?$/s) |
888
|
12 |
80 |
unless (defined $element{'string'}) |
894
|
456 |
8529 |
if ($l =~ /^((\[([1-9][0-9]*)\])\x{20}+)(.+)$/s) |
903
|
137 |
8392 |
if ($l =~ /^((\{([1-9][0-9]*)\})\x{20}+)(.+)$/s) |
912
|
44 |
8348 |
if ($l =~ /^((\x{20}{6,})((\*\x{20}?){5})\s*)$/s) |
918
|
150 |
8198 |
if ($l =~ /\A
(\x{20}+) # 1. initial space and indentation
(.+) # 2. desc title
(\x{20}+) # 3. space
(\:\:) # 4 . separator
((\x{20}?)(.*)) # 5 6. space 7. text
\z
/sx) |
936
|
8176 |
22 |
unless ($opts{'nolist'}) |
937
|
481 |
7695 |
if ($l =~ /^((\x{20}+)\-\x{20}+)(.*)/s) |
946
|
1059 |
6636 |
if ($l =~ /^((\x{20}+) # leading space and type $1
( # the type $2
[0-9]+ |
[a-zA-Z] |
[ixvl]+ |
[IXVL]+
)
\. # single dot
\x{20}+) # space
(.*) # the string itself $4
/sx) |
960
|
1059 |
0 |
if (my $list_index = $self->_get_start_list_index($prefix)) |
972
|
65 |
6593 |
if ($l =~ /^(\x{20}{20,})([^ ].+)$/s) |
979
|
487 |
6106 |
if ($l =~ /^(\x{20}{6,})([^ ].+)$/s) |
986
|
966 |
5140 |
if ($l =~ /^(\x{20}{2,})([^ ].+)$/s) |
1003
|
390 |
669 |
if ($list_type =~ /\A[0-9]+\z/) { } |
|
166 |
503 |
elsif ($list_type =~ /\A[ixvl]+\z/) { } |
|
77 |
426 |
elsif ($list_type =~ /\A[IXVL]+\z/) { } |
|
273 |
153 |
elsif ($list_type =~ /\A[a-z]\z/) { } |
|
153 |
0 |
elsif ($list_type =~ /\A[A-Z]\z/) { } |
1022
|
1062 |
2 |
if (exists $map->{$prefix}) { } |
1034
|
40 |
297 |
if $el->type eq "dd" |
1035
|
0 |
297 |
unless $el->type eq "li" |
1037
|
22 |
275 |
if ($el->indentation > 8) { } |
1047
|
13842 |
19476 |
if (@_) |
1057
|
22 |
0 |
if ($el->type eq 'regular') { } |
1071
|
188 |
17662 |
if ($current and $current->type eq 'null' || $current->type eq 'startblock' and $current->anchors) |
1075
|
108 |
216 |
if ($element->type eq "null" and $element->anchors and $current->type ne "null" and $current->type ne "example") |
1090
|
2336 |
51261 |
if ($current and $current->type eq $block) { } |
|
352 |
50909 |
elsif ($element->is_start_block($block)) { } |
1091
|
316 |
2020 |
if ($element->is_stop_element($current)) { } |
1100
|
6 |
2014 |
if ($current->type eq 'verse' and $element->type eq 'inlinecomment') { } |
1121
|
4133 |
12547 |
if ($current and $current->can_append($element)) |
1133
|
0 |
7148 |
unless $open_close and $block |
1135
|
2353 |
4795 |
if ($open_close eq 'open') { } |
|
4795 |
0 |
elsif ($open_close eq 'close') { } |
1145
|
7148 |
0 |
if ($indentation) |
1156
|
128 |
1288 |
if ($el->attribute and $el->attribute_type) |
1174
|
637 |
0 |
if (my $list_index = $el->start_list_index) |
1214
|
2865 |
347 |
if ($one_indent and $two_indent) |
1218
|
282 |
2930 |
if ($diff - $tolerance > 0) { } |
|
753 |
2177 |
elsif ($diff + $tolerance < 0) { } |
1237
|
893 |
893 |
if $block eq "li" or $block eq "dd" |
1238
|
823 |
70 |
if ($block eq $find) |
1249
|
556 |
0 |
if (defined $fn_num) { } |
1250
|
0 |
556 |
if ($self->_raw_footnotes->{$fn_num}) |
1266
|
53 |
1898 |
if (@{$self->_current_footnote_stack;}) |
1268
|
0 |
53 |
unless $footnote |
1307
|
637 |
0 |
if (my $list_index = $el->start_list_index) |
1318
|
779 |
0 |
if (my $list_index = $el->start_list_index) |
1355
|
0 |
823 |
if (not $last && $current) { } |
|
317 |
506 |
elsif ($last > 0 and $current > 1) { } |
1359
|
273 |
44 |
if ($current - $last == 1) { } |