Condition Coverage

blib/lib/RTF/Writer.pm
Criterion Covered Total %
condition 33 112 29.4


and 3 conditions

line !l l&&!r l&&r condition
101 0 1 0 @_ and ref($_[0] || '')
1 0 0 @_ and ref($_[0] || '') and UNIVERSAL::isa($_[0], 'RTF::Writer')
152 0 0 6 defined $_[1] and length $_[1]
168 0 0 1 defined $_[1] and ref $_[1] eq 'SCALAR'
216 0 0 0 defined $_[$i] && length $_[$i]
264 0 0 0 ref $_[0] and $RTF::Writer::AUTOLOAD =~ /::([A-Z][a-z]*(?:_?[0-9]+)?)$/s
295 7 0 0 $_[0][0] and $_[0][1]
305 0 0 0 @_ and defined $_[0]
0 0 0 @_ and defined $_[0] and ref $_[0]
0 0 0 @_ and defined $_[0] and ref $_[0] and UNIVERSAL::isa($_[0], 'RTF::Writer::TableRowDecl')
331 0 0 5 @_ and defined $_[0]
0 0 5 @_ and defined $_[0] and ref $_[0]
0 0 5 @_ and defined $_[0] and ref $_[0] and UNIVERSAL::isa($_[0], 'RTF::Writer::TableRowDecl')
351 20 0 0 defined $_ and ref $_ eq ''
20 0 0 defined $_ and ref $_ eq '' and -1 != index($_[$i], "\f")
428 0 0 4 $filespec and -e $filespec
437 0 0 4 $h and $w
509 0 0 6 ref $fonts eq 'ARRAY' and not @$fonts
701 0 0 579 defined $$x && length $$x
0 543 36 $RTF::Writer::AUTO_NL && $$x =~ /[a-zA-Z0-9]\z/s

or 2 conditions

line l !l condition
101 1 0 $_[0] || ''
318 0 0 $row_content || ''
346 3 2 shift @inits || ''
358 9 11 shift @inits || ''
507 0 6 $h{'fonts'} || $h{'font_table'} || $h{'fonttable'} || []
571 0 6 $h{'more_info'} || ''
0 6 $h{'more_info'} || ''
582 0 6 $h{'colors'} || $h{'color_table'} || $h{'colortable'} || $h{'colortbl'} || ''
586 0 0 $_ || ''
0 0 $$_[0] || 0
0 0 $$_[1] || 0
0 0 $$_[2] || 0
0 0 $_ || ''
633 0 6 $h{'charset'} || 'ansi'
0 6 $h{'deff'} or 0
6 24 $h{$_} || ''
0 24 $h{$_} || ''

or 3 conditions

line l !l&&r !l&&!r condition
159 0 6 0 ref $class || $class
173 0 1 0 ref $class || $class
216 0 0 0 not defined $_[$i] && length $_[$i] or $_[$i] =~ /^[+-]?(?=\d|\.\d)\d*(?:\.\d*)?(?:[Ee](?:[+-]?\d+))?\z/s
277 0 0 0 ref $_[0] || $_[0]
312 0 0 0 $decl ||= 'RTF::Writer::TableRowDecl'->new_auto_for_rows(@_)
427 4 0 0 $o{'filename'} || Carp::croak('What filename?')