| line |
true |
false |
branch |
|
6
|
0 |
6 |
if $@ |
|
101
|
0 |
1 |
if @_ and ref($_[0] || '') and UNIVERSAL::isa($_[0], 'RTF::Writer') |
|
105
|
0 |
1 |
if (not defined wantarray) { } |
|
|
0 |
1 |
elsif (wantarray) { } |
|
108
|
0 |
0 |
ord $1 < 32768 ? : |
|
118
|
0 |
0 |
ord $1 < 32768 ? : |
|
122
|
1 |
0 |
@_ == 1 ? : |
|
127
|
0 |
0 |
ord $1 < 32768 ? : |
|
139
|
0 |
6 |
unless defined $_[0] |
|
140
|
0 |
6 |
unless length $_[0] |
|
142
|
0 |
6 |
unless open FH, ">$_[0]" |
|
152
|
0 |
6 |
unless defined $_[1] and length $_[1] |
|
168
|
0 |
1 |
unless defined $_[1] and ref $_[1] eq 'SCALAR' |
|
185
|
0 |
520 |
unless ref $_[0] |
|
189
|
0 |
520 |
unless $_[0][0] |
|
196
|
0 |
0 |
unless ref $_[0] |
|
199
|
0 |
0 |
unless defined $format |
|
201
|
0 |
0 |
if (ref $format ne 'SCALAR') { } |
|
216
|
0 |
0 |
if not defined $_[$i] && length $_[$i] or $_[$i] =~ /^[+-]?(?=\d|\.\d)\d*(?:\.\d*)?(?:[Ee](?:[+-]?\d+))?\z/s |
|
222
|
0 |
0 |
ord $1 < 32768 ? : |
|
264
|
0 |
0 |
if (ref $_[0] and $RTF::Writer::AUTOLOAD =~ /::([A-Z][a-z]*(?:_?[0-9]+)?)$/s) { } |
|
268
|
0 |
0 |
if (@_) { } |
|
284
|
0 |
7 |
unless $_[0][0] |
|
286
|
6 |
1 |
if length $_[0][1] |
|
295
|
0 |
7 |
if $_[0][0] and $_[0][1] |
|
304
|
0 |
0 |
unless ref $it |
|
305
|
0 |
0 |
if @_ and defined $_[0] and ref $_[0] and UNIVERSAL::isa($_[0], 'RTF::Writer::TableRowDecl') |
|
310
|
0 |
0 |
unless @_ |
|
318
|
0 |
0 |
unless ref($row_content || '') eq 'ARRAY' |
|
330
|
0 |
5 |
unless ref $it |
|
331
|
0 |
5 |
unless @_ and defined $_[0] and ref $_[0] and UNIVERSAL::isa($_[0], 'RTF::Writer::TableRowDecl') |
|
337
|
0 |
5 |
if @{$$decl[0];} > @_ |
|
339
|
0 |
5 |
unless @_ |
|
351
|
0 |
0 |
if (defined $_ and ref $_ eq '' and -1 != index($_[$i], "\f")) |
|
398
|
0 |
2 |
unless $r->print(\"{\\pard\\qc\n{\\pict\n", \$declcode) |
|
399
|
0 |
2 |
unless $r->_image_data($filename) |
|
410
|
0 |
2 |
unless defined wantarray |
|
428
|
0 |
4 |
unless $filespec and -e $filespec |
|
431
|
0 |
4 |
if (defined $o{'picspecs'}) { } |
|
433
|
0 |
0 |
if ref $decl |
|
437
|
0 |
4 |
unless $h and $w |
|
439
|
2 |
0 |
$type eq 'JPG' ? : |
|
|
2 |
2 |
$type eq 'PNG' ? : |
|
466
|
0 |
4 |
unless open IMAGE, $filename |
|
471
|
484 |
484 |
if ($to) { } |
|
474
|
0 |
484 |
unless $r->print(\(unpack('H*', $buffer) . "\n")) |
|
498
|
6 |
0 |
unless exists $h{'revtim'} |
|
499
|
6 |
0 |
unless exists $h{'creatim'} |
|
500
|
6 |
0 |
unless exists $h{'doccomm'} |
|
508
|
0 |
6 |
unless ref $fonts |
|
509
|
6 |
0 |
if ref $fonts eq 'ARRAY' and not @$fonts |
|
513
|
6 |
0 |
ref $_ ? : |
|
|
6 |
0 |
if ref $fonts eq 'ARRAY' |
|
571
|
12 |
0 |
$x =~ /^\d+$/ ? : |
|
|
0 |
12 |
ref $x eq 'ARRAY' ? : |
|
|
0 |
12 |
ref $x eq 'SCALAR' ? : |
|
|
12 |
12 |
!defined($x = $h{$_}) ? : |
|
|
0 |
0 |
$x =~ /^[0-9]+$/ ? : |
|
|
48 |
0 |
!defined($x = $h{$_}) ? : |
|
|
0 |
10 |
ref $x eq 'SCALAR' ? : |
|
|
56 |
10 |
!defined($x = $h{$_}) ? : |
|
|
0 |
6 |
ref($h{'more_info'} || '') eq 'SCALAR' ? : |
|
584
|
0 |
6 |
if (ref $color_table eq 'ARRAY') { } |
|
|
0 |
6 |
elsif (ref $color_table eq 'SCALAR') { } |
|
586
|
0 |
0 |
$$_ =~ /;[\cm\cj\n]*\z/s ? : |
|
|
0 |
0 |
ref($_ || '') eq 'SCALAR' ? : |
|
|
0 |
0 |
ref($_ || '') eq 'ARRAY' ? : |
|
633
|
0 |
6 |
defined $h{'rtf_version'} ? : |
|
|
0 |
0 |
ref $x eq 'SCALAR' ? : |
|
|
6 |
0 |
!defined($x = $h{'more_default'}) ? : |
|
|
6 |
24 |
ref($h{$_} || '') eq 'SCALAR' ? : |
|
658
|
0 |
0 |
ord $1 < 32768 ? : |
|
664
|
0 |
12 |
unless @_ |
|
665
|
12 |
0 |
if (@_ == 1) |
|
692
|
0 |
615 |
unless defined $x |
|
693
|
3 |
612 |
if (ref $x eq 'ARRAY') { } |
|
|
579 |
33 |
elsif (ref $x eq 'SCALAR') { } |
|
|
33 |
0 |
elsif (length $x) { } |
|
694
|
0 |
3 |
if @$x == 0 |
|
695
|
0 |
3 |
$sr ? : |
|
698
|
0 |
3 |
$sr ? : |
|
701
|
0 |
579 |
if (not defined $$x && length $$x) { } |
|
|
543 |
36 |
elsif (not $RTF::Writer::AUTO_NL && $$x =~ /[a-zA-Z0-9]\z/s) { } |
|
705
|
0 |
543 |
$sr ? : |
|
709
|
0 |
36 |
$sr ? : |
|
731
|
0 |
0 |
ord $1 < 32768 ? : |
|
742
|
33 |
0 |
if $RTF::Writer::WRAP |
|
751
|
1 |
32 |
$sr ? : |