| line |
true |
false |
branch |
|
36
|
0 |
0 |
if ($file =~ /\.gz$/u) { } |
|
91
|
107 |
12 |
$break_on_space ? : |
|
|
72 |
47 |
unless length(my $more = $self->substring_before($break_on_space ? qr/[\\\n\s]/u : qr/[\\\n]/u)) |
|
97
|
24 |
48 |
unless $consumed |
|
196
|
1 |
2 |
if @chunks > 2 |
|
198
|
2 |
1 |
if @chunks |
|
207
|
8 |
4 |
++$i % 2 ? : |
|
333
|
2 |
1 |
if (defined(my $marker = $self->maybe("token_chunk"))) |
|
336
|
2 |
1 |
if (defined(my $indent = $self->maybe("token_chunk"))) |
|
385
|
0 |
0 |
if (defined(my $indent = $self->maybe('token_chunk'))) { } |
|
461
|
2 |
14 |
if length $esc == 1 and $esc =~ /[^A-Za-z0-9]/u |
|
462
|
3 |
13 |
if length $esc > 1 |
|
463
|
0 |
16 |
unless $meth = $self->can($meth) |
|
502
|
0 |
2 |
unless @{$self->{'fonts'};} > 1 |
|
541
|
35 |
48 |
if (grep {($self->{'para_options'}{$_} // "") ne $opts{$_};} keys %opts) |
|
551
|
50 |
15 |
if (not $self->{'para_flushed'}) { } |
|
576
|
0 |
2 |
unless $self->{'para_options'}{'mode'} eq $expect_mode |