| line |
true |
false |
branch |
|
209
|
1 |
0 |
if (ref $ar_r eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $ar_r eq 'HASH') { } |
|
217
|
1 |
0 |
if $next |
|
258
|
1 |
0 |
unless (defined $token) |
|
264
|
1 |
1 |
if (ref $val eq 'ARRAY') { } |
|
266
|
0 |
2 |
if (ref $key eq 'ARRAY') { } |
|
297
|
1 |
3 |
unless $first_child |
|
306
|
0 |
3 |
if ($t->children_count) { } |
|
325
|
0 |
0 |
if (ref $token->{'pod_pat'} eq 'Regexp') |
|
332
|
0 |
0 |
defined $token->get_pod_pattern ? : |
|
333
|
0 |
0 |
defined $pat && defined $pat->[0] ? : |
|
353
|
0 |
1 |
unless open $out, '>', \$h_value |
|
369
|
0 |
0 |
if ($file) { } |
|
371
|
0 |
0 |
unless open $fh, '>', $file |
|
392
|
0 |
1 |
if scalar @array == 1 |
|
401
|
1 |
0 |
if ($token->get_key eq 'doc_Document_end_') { } |
|
402
|
0 |
1 |
unless $token->previous->line_end |
|
405
|
0 |
0 |
unless $token->line_end |
|
412
|
0 |
3 |
if $token->children_count |
|
423
|
3 |
0 |
if ($self->{'output_as_hash'}) |
|
432
|
0 |
3 |
unless open $out, '>', \$h_value |
|
438
|
1 |
0 |
if $self->{'output_as_hash'} |
|
455
|
1 |
8 |
unless $mytoken->line_end |
|
465
|
0 |
0 |
$token ? : |
|
472
|
0 |
0 |
unless $token->line_end |
|
481
|
15 |
51 |
unless defined $attr_hr->{'start_line'} |
|
489
|
2 |
49 |
$token->key_needed ? : |
|
|
51 |
0 |
$token ? : |
|
499
|
2 |
49 |
if ($token->is_pod_matching($e_name)) |
|
508
|
2 |
0 |
if $token->previous->line_end == 0 |
|
514
|
2 |
49 |
if ($token->key_needed and $key) { } |
|
516
|
2 |
0 |
if ($token->is_key_matching($key)) { } |
|
520
|
0 |
2 |
unless $tp->line_end |
|
537
|
14 |
35 |
if ($e_name =~ /^head/i) |
|
541
|
0 |
14 |
unless $tp->line_end |
|
557
|
0 |
0 |
unless defined $attr_hr->{'start_line'} |
|
558
|
0 |
0 |
unless $token |
|
568
|
0 |
0 |
defined $token ? : |
|
|
0 |
0 |
$self->{'doc'}->key_needed ? : |
|
571
|
0 |
0 |
if ($self->{'doc'}->is_pod_matching($e_name)) |
|
576
|
0 |
0 |
if ($token->previous) { } |
|
577
|
0 |
0 |
if $token->previous->line_end == 0 |
|
588
|
0 |
0 |
$self->{'doc'}->key_needed ? : |
|
|
0 |
0 |
defined $key ? : |
|
592
|
0 |
0 |
if ($self->{'doc'}->key_needed and $key) { } |
|
596
|
0 |
0 |
if ($self->{'doc'}->is_key_matching($key)) { } |
|
600
|
0 |
0 |
if ($token->previous) { } |
|
601
|
0 |
0 |
unless $token->previous->line_end |
|
621
|
0 |
0 |
unless $token->line_end |
|
641
|
0 |
0 |
unless $token->line_end |
|
648
|
0 |
0 |
if ($e_name =~ /^head/i) |
|
650
|
0 |
0 |
if ($token->previous) { } |
|
654
|
0 |
0 |
unless $token->previous->line_end |
|
669
|
0 |
66 |
unless $token |
|
670
|
2 |
64 |
if ($token->key_needed) |
|
678
|
0 |
0 |
if ($self->{'doc'}->key_needed) |
|
720
|
3 |
1 |
if ($parent) { } |
|
766
|
0 |
4 |
if (ref $pod_dir eq 'ARRAY') { } |
|
784
|
1 |
2 |
unless scalar @{$self->{'children'};} |
|
794
|
3 |
67 |
if ($v) |
|
797
|
70 |
0 |
if $self->{'previous'} |
|
802
|
3 |
7 |
if ($v) |
|
815
|
9 |
1 |
if $self->{'next'} |
|
824
|
0 |
4 |
unless $self->children_count |
|
829
|
3 |
1 |
if ($index < @{$self->{'children'};}) { } |
|
834
|
0 |
1 |
if $self->{'parent'} |
|
845
|
2 |
6 |
if ($pos) |
|
855
|
3 |
57 |
if ($pos) |
|
880
|
0 |
51 |
unless $el |
|
882
|
51 |
0 |
if ($self->{'pod_pat'}) |
|
886
|
2 |
49 |
if ($el =~ /\b$p\b/) |
|
902
|
0 |
2 |
unless $el |
|
909
|
2 |
0 |
if ($el =~ /\b$p\b/) |
|
910
|
0 |
2 |
unless $self->{'key'} |
|
927
|
0 |
168 |
if defined $v |
|
934
|
0 |
0 |
if (ref $self->{'key_pat'}) { } |