| line |
true |
false |
branch |
|
29
|
0 |
9 |
if (@_ and $_[0] =~ /^[v0-9.<>=!, ]+$/u) |
|
33
|
0 |
9 |
if @_ |
|
41
|
0 |
0 |
if @_ |
|
48
|
0 |
8 |
@_ && !($_[0] =~ /^-./u) ? : |
|
51
|
0 |
8 |
if (not -x $bin and $bin =~ /^\d+(\.\d+)*$/u and -x $bin_from_version) { } |
|
59
|
0 |
8 |
if @_ |
|
63
|
0 |
8 |
if ($pandoc->{'bin'}) |
|
67
|
8 |
0 |
unless ($out and $out =~ /^[^ ]+ (\d+(\.\d+)+)/u) |
|
76
|
0 |
0 |
if $out =~ /^Default user data directory: (.+)$/mu |
|
79
|
0 |
0 |
if ($out =~ /^Syntax highlighting is supported/mu) |
|
86
|
0 |
0 |
if ($out =~ /^Compiled with($LIBRARY_VERSION+)/mu) |
|
100
|
0 |
8 |
if (@_) { } |
|
101
|
0 |
0 |
$PANDOC ? : |
|
111
|
0 |
0 |
'ARRAY' eq ref $_[0] ? : |
|
112
|
0 |
0 |
'HASH' eq ref $_[-1] ? : |
|
114
|
0 |
0 |
if (@_) |
|
115
|
0 |
0 |
if (not $args) { } |
|
|
0 |
0 |
elsif ($args and not $opts and @_ % 2 == 0) { } |
|
116
|
0 |
0 |
if ($_[0] =~ /^-/u or $opts or @_ % 2) { } |
|
138
|
0 |
0 |
if $opts->{'binmode'} |
|
139
|
0 |
0 |
if ("SCALAR" eq ref $opts->{$io}) |
|
140
|
0 |
0 |
unless utf8::is_utf8(${$$opts{$io};}) |
|
153
|
0 |
0 |
$? == -1 ? : |
|
155
|
0 |
0 |
if ($status and $throw) { } |
|
183
|
0 |
0 |
if $utf8 |
|
194
|
0 |
0 |
if ($format eq 'json') { } |
|
219
|
0 |
0 |
if $pandoc eq "Pandoc" |
|
220
|
0 |
0 |
unless ($pandoc->version(@_)) |
|
232
|
0 |
0 |
unless my $pandoc = shift() |
|
233
|
0 |
0 |
unless my $version = $pandoc->{'version'} |
|
236
|
0 |
0 |
if @_ and not $version->fulfills(@_) |
|
246
|
0 |
9 |
if ($^O eq 'MSWin32') { } |
|
256
|
0 |
0 |
if (@_) |
|
265
|
0 |
0 |
if (@_) |
|
266
|
0 |
0 |
'ARRAY' eq ref $_[0] ? : |
|
267
|
0 |
0 |
if @$args and not $args->[0] =~ /^-./u |
|
276
|
0 |
0 |
unless ($pandoc->{$which}) |
|
277
|
0 |
0 |
if ($pandoc->version('1.18')) { } |
|
|
0 |
0 |
elsif (not defined $pandoc->{'help'}) { } |
|
288
|
0 |
0 |
unless $help =~ /^$inout formats:\s+([a-z_0-9,\+\s*]+)/mu |
|
316
|
0 |
0 |
if ($pandoc->version < 1.18) { } |
|
320
|
0 |
0 |
if ($format) |
|
321
|
0 |
0 |
if ($format =~ /^[a-z0-9_]$/u and $pandoc->version >= '2.0.6') { } |
|
332
|
0 |
0 |
($1 || $3) eq '+' ? : |
|
345
|
0 |
0 |
@_ % 2 ? : |
|
347
|
0 |
0 |
if ('' eq $name // '') { } |
|
|
0 |
0 |
elsif (-d $name) { } |
|
356
|
0 |
0 |
if -l $name |
|
357
|
0 |
0 |
if (CORE::symlink $bin, $name) { } |
|
358
|
0 |
0 |
if $opts{'verbose'} |