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] |