| line |
true |
false |
branch |
|
208
|
1 |
0 |
if (ref $ar_r eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $ar_r eq 'HASH') { } |
|
216
|
1 |
0 |
if $next |
|
257
|
1 |
0 |
unless (defined $token) |
|
263
|
1 |
1 |
if (ref $val eq 'ARRAY') { } |
|
265
|
0 |
2 |
if (ref $key eq 'ARRAY') { } |
|
296
|
1 |
3 |
unless $first_child |
|
305
|
0 |
3 |
if ($t->children_count) { } |
|
324
|
0 |
0 |
if (ref $token->{'pod_pat'} eq 'Regexp') |
|
331
|
0 |
0 |
defined $token->get_pod_pattern ? : |
|
332
|
0 |
0 |
defined $pat && defined $pat->[0] ? : |
|
352
|
0 |
1 |
unless open $out, '>', \$h_value |
|
368
|
0 |
0 |
if ($file) { } |
|
370
|
0 |
0 |
unless open $fh, '>', $file |
|
391
|
0 |
1 |
if scalar @array == 1 |
|
400
|
0 |
0 |
if ($token->get_key eq 'doc_Document_end_') { } |
|
401
|
0 |
0 |
unless $token->previous->line_end |
|
404
|
0 |
0 |
unless $token->line_end |
|
411
|
0 |
0 |
if $token->children_count |
|
422
|
0 |
0 |
if ($self->{'output_as_hash'}) |
|
431
|
0 |
0 |
unless open $out, '>', \$h_value |
|
437
|
0 |
0 |
if $self->{'output_as_hash'} |
|
454
|
0 |
0 |
unless $mytoken->line_end |
|
464
|
0 |
0 |
$token ? : |
|
471
|
0 |
0 |
unless $token->line_end |
|
480
|
0 |
0 |
unless defined $attr_hr->{'start_line'} |
|
488
|
0 |
0 |
$token->key_needed ? : |
|
|
0 |
0 |
$token ? : |
|
498
|
0 |
0 |
if ($token->is_pod_matching($e_name)) |
|
507
|
0 |
0 |
if $token->previous->line_end == 0 |
|
513
|
0 |
0 |
if ($token->key_needed and $key) { } |
|
515
|
0 |
0 |
if ($token->is_key_matching($key)) { } |
|
519
|
0 |
0 |
unless $tp->line_end |
|
536
|
0 |
0 |
if ($e_name =~ /^head/i) |
|
540
|
0 |
0 |
unless $tp->line_end |
|
556
|
0 |
0 |
unless defined $attr_hr->{'start_line'} |
|
557
|
0 |
0 |
unless $token |
|
567
|
0 |
0 |
defined $token ? : |
|
|
0 |
0 |
$self->{'doc'}->key_needed ? : |
|
570
|
0 |
0 |
if ($self->{'doc'}->is_pod_matching($e_name)) |
|
575
|
0 |
0 |
if ($token->previous) { } |
|
576
|
0 |
0 |
if $token->previous->line_end == 0 |
|
587
|
0 |
0 |
$self->{'doc'}->key_needed ? : |
|
|
0 |
0 |
defined $key ? : |
|
591
|
0 |
0 |
if ($self->{'doc'}->key_needed and $key) { } |
|
595
|
0 |
0 |
if ($self->{'doc'}->is_key_matching($key)) { } |
|
599
|
0 |
0 |
if ($token->previous) { } |
|
600
|
0 |
0 |
unless $token->previous->line_end |
|
620
|
0 |
0 |
unless $token->line_end |
|
640
|
0 |
0 |
unless $token->line_end |
|
647
|
0 |
0 |
if ($e_name =~ /^head/i) |
|
649
|
0 |
0 |
if ($token->previous) { } |
|
653
|
0 |
0 |
unless $token->previous->line_end |
|
668
|
0 |
0 |
unless $token |
|
669
|
0 |
0 |
if ($token->key_needed) |
|
677
|
0 |
0 |
if ($self->{'doc'}->key_needed) |
|
719
|
3 |
1 |
if ($parent) { } |
|
764
|
0 |
4 |
if (ref $pod_dir eq 'ARRAY') { } |
|
782
|
1 |
2 |
unless scalar @{$self->{'children'};} |
|
792
|
3 |
0 |
if ($v) |
|
795
|
3 |
0 |
if $self->{'previous'} |
|
800
|
3 |
1 |
if ($v) |
|
813
|
4 |
0 |
if $self->{'next'} |
|
822
|
0 |
4 |
unless $self->children_count |
|
827
|
3 |
1 |
if ($index < @{$self->{'children'};}) { } |
|
832
|
0 |
1 |
if $self->{'parent'} |
|
843
|
0 |
0 |
if ($pos) |
|
853
|
0 |
0 |
if ($pos) |
|
878
|
0 |
0 |
unless $el |
|
880
|
0 |
0 |
if ($self->{'pod_pat'}) |
|
884
|
0 |
0 |
if ($el =~ /\b$p\b/) |
|
900
|
0 |
0 |
unless $el |
|
907
|
0 |
0 |
if ($el =~ /\b$p\b/) |
|
908
|
0 |
0 |
unless $self->{'key'} |
|
925
|
0 |
0 |
if defined $v |
|
932
|
0 |
0 |
if (ref $self->{'key_pat'}) { } |