| line |
true |
false |
branch |
|
136
|
1 |
27 |
if ref $class |
|
139
|
1 |
26 |
if $args and ref $args ne 'HASH' |
|
146
|
8 |
70 |
if (exists $args->{$key}) |
|
175
|
1 |
21 |
if ref \$input_string ne 'SCALAR' |
|
210
|
1 |
26 |
if defined $args_ref and ref $args_ref ne 'HASH' |
|
214
|
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') { } |
|
226
|
1 |
11 |
unless open $input_fh, '<', $args_ref->{'input'} |
|
234
|
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') { } |
|
246
|
1 |
11 |
unless open $output_fh, '>', $args_ref->{'output'} |
|
276
|
1 |
116 |
if ref \$wikitext ne 'SCALAR' |
|
281
|
0 |
193 |
unless ref $node |
|
316
|
810 |
623 |
if ($action eq 'peek') { } |
|
|
623 |
0 |
elsif ($action eq 'drop' or $action eq 'next') { } |
|
317
|
678 |
132 |
unless @head |
|
321
|
623 |
0 |
if @head |
|
357
|
55 |
418 |
if ($chunk eq 'flush') |
|
358
|
16 |
39 |
if @wikidoc |
|
362
|
0 |
418 |
unless ref $chunk eq 'ARRAY' |
|
364
|
211 |
207 |
if ($format eq 'wikidoc') { } |
|
|
207 |
0 |
elsif ($format eq 'pod') { } |
|
368
|
35 |
172 |
if @wikidoc |
|
429
|
12 |
99 |
if ($peek =~ /$CBLOCK/) |
|
433
|
0 |
99 |
if ($peek =~ /$CUT/) |
|
438
|
44 |
55 |
if ($peek =~ /$POD_CMD/) |
|
439
|
1 |
43 |
if $cutting |
|
464
|
13 |
495 |
if ($peek =~ /$POD/) |
|
468
|
34 |
461 |
if ($peek =~ /$CUT/) |
|
473
|
21 |
440 |
if ($peek =~ /$FOR/) |
|
477
|
38 |
402 |
if ($peek =~ /$END/) |
|
478
|
0 |
38 |
if (not @format) { } |
|
|
0 |
38 |
elsif ($format[-1] ne $1) { } |
|
|
25 |
13 |
elsif ($format[-1] eq 'wikidoc') { } |
|
498
|
39 |
376 |
if ($peek =~ /$BEGIN/) |
|
499
|
26 |
13 |
if ($1 eq 'wikidoc') { } |
|
510
|
195 |
194 |
@format && $format[-1] eq 'wikidoc' ? : |
|
528
|
8 |
13 |
$format eq 'wikidoc' ? : |
|
531
|
16 |
9 |
if ($peek =~ /$BLANK_LINE/) |
|
538
|
8 |
13 |
if ($format eq 'wikidoc') { } |
|
544
|
8 |
13 |
$format eq 'wikidoc' ? : |
|
555
|
12 |
0 |
$1 ? : |
|
559
|
9 |
18 |
unless $peek =~ /$CBLOCK/ |
|
560
|
12 |
6 |
$1 ? : |
|
563
|
8 |
4 |
if $self->{'comment_blocks'} |
|
694
|
7 |
1 |
defined $value ? : |
|
725
|
93 |
1504 |
ref $opening eq 'CODE' ? : |
|
726
|
272 |
1325 |
if (ref $node->{'content'} eq 'ARRAY') { } |
|
730
|
4 |
268 |
$node->{'type'} eq 'Preformat' ? : |
|
737
|
684 |
641 |
defined $handler ? : |
|
739
|
0 |
1597 |
ref $closing eq 'CODE' ? : |