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'} |