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