| line |
true |
false |
branch |
|
47
|
0 |
56 |
if (my $value = $self->$mom)
|
|
76
|
15 |
31 |
if ($command =~ /^head[123]/) { }
|
|
|
4 |
27 |
elsif ($command eq 'for') { }
|
|
77
|
3 |
12 |
if $paragraph eq 'NAME'
|
|
81
|
3 |
1 |
if ($paragraph =~ /^mom\s+(?:newpage|toc|cover)/i)
|
|
136
|
9 |
37 |
if $is_mom
|
|
137
|
9 |
37 |
if ($is_mom) { }
|
|
147
|
3 |
6 |
if $paragraph eq 'name'
|
|
151
|
6 |
18 |
if ($paragraph eq $method)
|
|
152
|
0 |
6 |
if (my $item = $self->$mom)
|
|
153
|
0 |
0 |
unless $self->$set_in_contructor
|
|
160
|
1 |
2 |
if $paragraph =~ /^mom\s+cover/i
|
|
161
|
1 |
2 |
if $paragraph =~ /^mom\s+toc/i
|
|
162
|
1 |
2 |
if $paragraph =~ /^mom\s+newpage/i
|
|
239
|
23 |
14 |
if (any(('over', 'item', 'back')) eq $command) { }
|
|
|
14 |
0 |
elsif (my $handler = $self->handler_for($command)) { }
|
|
252
|
5 |
18 |
if ('over' eq $command) { }
|
|
|
5 |
13 |
elsif ('back' eq $command) { }
|
|
|
13 |
0 |
elsif ('item' eq $command) { }
|
|
257
|
0 |
5 |
if ($self->in_list_mode == 0) { }
|
|
265
|
4 |
1 |
if (not $self->in_list_mode)
|
|
273
|
1 |
12 |
unless ($self->in_list_mode)
|
|
282
|
4 |
8 |
'*' ne $list_type ? :
|
|
285
|
5 |
7 |
unless ($self->list_type)
|
|
296
|
0 |
32 |
unless defined $text
|
|
302
|
0 |
14 |
unless defined $text
|
|
309
|
2 |
12 |
if ($self->list_data =~ /\n.ITEM\n.*\n$/ and not $text =~ /^.ITEM/)
|
|
319
|
1 |
6 |
if ($self->fh)
|
|
321
|
0 |
1 |
unless close $self->fh
|
|
327
|
6 |
22 |
if (my $item = $self->$mom_method)
|
|
333
|
1 |
6 |
if ($self->mom_cover)
|
|
337
|
0 |
4 |
unless $self->$mom_method
|
|
353
|
1 |
6 |
if $self->mom_toc
|
|
358
|
0 |
2 |
unless $self->in_file_mode
|
|
359
|
0 |
2 |
unless my $fh = $self->fh
|
|
365
|
1 |
3 |
if ($self->in_file_mode)
|
|
370
|
2 |
1 |
if ($self->highlight) { }
|
|
393
|
1 |
23 |
if ($self->in_file_mode)
|
|
409
|
6 |
74 |
if ($self->$method)
|
|
412
|
6 |
0 |
unless ($self->$set_in_contructor)
|
|
428
|
2 |
18 |
$self->in_list_mode ? :
|
|
437
|
2 |
6 |
$parent_format ? :
|
|
441
|
2 |
6 |
$parent_format ? :
|
|
563
|
0 |
8 |
unless $pod_seq
|
|
564
|
6 |
2 |
unless my $parent = $pod_seq->nested
|
|
577
|
20 |
1 |
if (my $handler = $self->sequence_handler($sequence)) { }
|