| line |
true |
false |
branch |
|
8
|
0 |
6 |
if (defined &DEBUG) { } |
|
|
6 |
0 |
elsif (defined &RTF::Writer::DEBUG) { } |
|
62
|
0 |
5 |
if (ref $it) { } |
|
73
|
0 |
5 |
if ($x = $h{'widths'}) { } |
|
|
0 |
5 |
elsif ($x = $h{'reaches'}) { } |
|
74
|
0 |
0 |
unless ref $x eq 'ARRAY' |
|
78
|
0 |
0 |
$w < 1 ? : |
|
81
|
0 |
0 |
unless ref $h{'reaches'} eq 'ARRAY' |
|
87
|
2 |
3 |
defined $h{'borders'} ? : |
|
89
|
4 |
1 |
defined $h{'align'} ? : |
|
100
|
0 |
0 |
ref $_ eq 'HASH' ? : |
|
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
|
0 |
0 |
!defined($_) ? : |
|
117
|
3 |
2 |
unless (@params and grep defined($_), @params) |
|
121
|
0 |
5 |
if @params == 1 and ref $params[0] |
|
123
|
3 |
2 |
if @params == 1 and $params[0] eq '1' |
|
141
|
1 |
4 |
unless (@alignments and grep defined($_), @alignments) |
|
148
|
0 |
4 |
if (@alignments != 1) { } |
|
|
4 |
0 |
elsif (ref $alignments[0]) { } |
|
160
|
1 |
15 |
unless (defined $spec and length $spec) |
|
167
|
0 |
15 |
unless ($x) |
|
171
|
0 |
15 |
unless 2 == length $x |
|
187
|
0 |
5 |
unless defined $spec and length $spec |
|
188
|
1 |
4 |
if lc $spec eq 'none' |
|
190
|
0 |
4 |
if $spec =~ /^\d+$/s |
|
199
|
0 |
5 |
unless $it |
|
201
|
0 |
5 |
unless (($dir, $width, $style) = $it =~ /
^\s*
(all|[nsewNSEWtbrlTBRL])
(?:-(\d+))?
(?:-([a-z]+))?
\s*
$
/sx) |
|
215
|
0 |
5 |
unless defined $width and length $width |
|
221
|
3 |
2 |
if ($dir eq 'all') { } |
|
233
|
2 |
14 |
unless $styles[$i] |
|
249
|
0 |
0 |
unless defined $r and ref $r eq 'ARRAY' |
|
250
|
0 |
0 |
if @$r > $max_cols |
|
265
|
1 |
4 |
if defined $$it[6] |
|
270
|
4 |
0 |
if ($cell_count > @$reaches) |
|
274
|
4 |
12 |
if (@$reaches == 0) { } |
|
|
4 |
8 |
elsif (@$reaches == 1) { } |
|
288
|
0 |
4 |
unless $$it[3] |
|
289
|
4 |
0 |
if @borders > 0 and @borders < $cell_count |
|
292
|
0 |
4 |
unless $$it[4] |
|
293
|
1 |
3 |
if @valign > 0 and @valign < $cell_count |
|
315
|
0 |
5 |
unless $_[0][5] |