line |
true |
false |
branch |
100
|
37 |
9 |
if ($line =~ /^;/) |
102
|
16 |
21 |
if ($line =~ /^;\s*set (\w+)\s*=\s*(.+)/) { } |
|
12 |
9 |
elsif ($line =~ /^;;/) { } |
|
6 |
3 |
elsif ($line =~ /^;\s*newslide/) { } |
110
|
5 |
1 |
if (++$slidecount == 1) |
123
|
14 |
1 |
unless $line =~ /^;/ |
130
|
1 |
5 |
if $line =~ /^;\s*newslide/ |
197
|
0 |
0 |
if $tag ne 'a' |
228
|
5 |
0 |
if ($output_format eq 'xhtml1.0_strict') { } |
232
|
5 |
0 |
if (exists $$options{'title'}) |
237
|
1 |
4 |
if (exists $$options{'csstype'} and $$options{'csstype'} eq 'inline') { } |
|
2 |
2 |
elsif (exists $$options{'cssfile'}) { } |
240
|
1 |
0 |
if (defined $$options{'cssfile'}) { } |
242
|
0 |
1 |
unless open my $fh, '<', $$options{'cssfile'} |
278
|
5 |
0 |
defined $$options{'title'} ? : |
279
|
1 |
4 |
defined $$options{'author'} ? : |
298
|
5 |
0 |
if ($output_format eq 'xhtml1.0_strict') { } |