| line |
true |
false |
branch |
|
34
|
1 |
27 |
if ref $class |
|
37
|
1 |
26 |
if $args and ref $args ne 'HASH' |
|
44
|
8 |
70 |
if (exists $$args{$key}) |
|
59
|
1 |
21 |
if ref \$input_string ne 'SCALAR' |
|
73
|
1 |
26 |
if defined $args_ref and ref $args_ref ne 'HASH' |
|
77
|
0 |
26 |
if (not $$args_ref{'input'}) { } |
|
|
13 |
13 |
elsif (blessed($$args_ref{'input'}) and $$args_ref{'input'}->isa('GLOB') or ref $$args_ref{'input'} eq 'GLOB' or ref \$$args_ref{'input'} eq 'GLOB') { } |
|
|
12 |
1 |
elsif (ref \$$args_ref{'input'} eq 'SCALAR') { } |
|
88
|
1 |
11 |
unless open $input_fh, '<', $$args_ref{'input'} |
|
97
|
0 |
24 |
if (not $$args_ref{'output'}) { } |
|
|
11 |
13 |
elsif (blessed($$args_ref{'output'}) and $$args_ref{'output'}->isa('GLOB') or ref $$args_ref{'output'} eq 'GLOB' or ref \$$args_ref{'output'} eq 'GLOB') { } |
|
|
12 |
1 |
elsif (ref \$$args_ref{'output'} eq 'SCALAR') { } |
|
108
|
1 |
11 |
unless open $output_fh, '>', $$args_ref{'output'} |
|
123
|
1 |
116 |
if ref \$wikitext ne 'SCALAR' |
|
128
|
0 |
193 |
unless ref $node |
|
163
|
810 |
623 |
if ($action eq 'peek') { } |
|
|
623 |
0 |
elsif ($action eq 'drop' or $action eq 'next') { } |
|
164
|
678 |
132 |
unless @head |
|
168
|
623 |
0 |
if @head |
|
204
|
55 |
418 |
if ($chunk eq 'flush') |
|
205
|
16 |
39 |
if @wikidoc |
|
209
|
0 |
418 |
unless ref $chunk eq 'ARRAY' |
|
211
|
211 |
207 |
if ($format eq 'wikidoc') { } |
|
|
207 |
0 |
elsif ($format eq 'pod') { } |
|
215
|
35 |
172 |
if @wikidoc |
|
276
|
12 |
99 |
if ($peek =~ /$CBLOCK/) |
|
280
|
0 |
99 |
if ($peek =~ /$CUT/) |
|
285
|
44 |
55 |
if ($peek =~ /$POD_CMD/) |
|
286
|
1 |
43 |
if $cutting |
|
311
|
13 |
495 |
if ($peek =~ /$POD/) |
|
315
|
34 |
461 |
if ($peek =~ /$CUT/) |
|
320
|
21 |
440 |
if ($peek =~ /$FOR/) |
|
324
|
38 |
402 |
if ($peek =~ /$END/) |
|
325
|
0 |
38 |
if (not @format) { } |
|
|
0 |
38 |
elsif ($format[-1] ne $1) { } |
|
|
25 |
13 |
elsif ($format[-1] eq 'wikidoc') { } |
|
345
|
39 |
376 |
if ($peek =~ /$BEGIN/) |
|
346
|
26 |
13 |
if ($1 eq 'wikidoc') { } |
|
357
|
195 |
194 |
@format && $format[-1] eq 'wikidoc' ? : |
|
375
|
8 |
13 |
$format eq 'wikidoc' ? : |
|
378
|
16 |
9 |
if ($peek =~ /$BLANK_LINE/) |
|
385
|
8 |
13 |
if ($format eq 'wikidoc') { } |
|
391
|
8 |
13 |
$format eq 'wikidoc' ? : |
|
402
|
12 |
0 |
$1 ? : |
|
406
|
9 |
18 |
unless $peek =~ /$CBLOCK/ |
|
407
|
12 |
6 |
$1 ? : |
|
410
|
8 |
4 |
if $$self{'comment_blocks'} |
|
541
|
7 |
1 |
defined $value ? : |
|
572
|
93 |
1504 |
ref $opening eq 'CODE' ? : |
|
573
|
272 |
1325 |
if (ref $$node{'content'} eq 'ARRAY') { } |
|
574
|
4 |
268 |
$$node{'type'} eq 'Preformat' ? : |
|
582
|
684 |
641 |
defined $handler ? : |
|
586
|
0 |
1597 |
ref $closing eq 'CODE' ? : |