Branch Coverage

lib/Pod/Simple/RTF.pm
Criterion Covered Total %
branch 52 100 52.0


line true false branch
16 3 0 unless defined &Pod::Simple::RTF::DEBUG
22 0 270 if $] ge 5.007003 and !1
77 0 72 unless /^([-A-Za-z]+)=(\w[^\=]*)$/s
162 0 3 ($ENV{'RTFDEFLANG'} || '') =~ /^([a-fA-F0-9]{4})$/s ? :
0 3 ($ENV{'RTFDEFLANG'} || '') =~ /^0?x([a-fA-F0-9]{1,10})$/s ? :
0 3 ($ENV{'RTFDEFLANG'} || '') =~ /^(\d{1,10})$/s ? :
196 0 3 if $self->bare_output
218 3 0 unless defined $self->{'rtfindent'}
222 19 44 if (($type = $token->type) eq 'text') { }
22 22 elsif ($type eq 'start') { }
22 0 elsif ($type eq 'end') { }
223 1 18 if ($self->{'rtfverbatim'})
235 18 0 unless $self->{'no_proofing_exemptions'}
255 18 0 if $Pod::Simple::RTF::WRAP
271 1 21 if (($tagname = $token->tagname) eq 'Verbatim' or $tagname eq 'VerbatimFormatted') { }
0 21 elsif ($tagname =~ /^item-/s) { }
0 21 elsif ($tagname =~ /^over-/s) { }
0 21 elsif ($tagname eq 'L') { }
0 21 elsif ($tagname eq 'Data') { }
276 0 1 unless defined $next
278 1 0 if ($next->type eq 'text')
281 1 14 if ++$line_count > 15
286 1 0 $line_count > 15 ? :
299 0 0 unless defined $to_unget[-1]
303 0 0 if ($to_unget[-1]->type eq 'text') { }
0 0 elsif (@to_unget > 1 and $to_unget[-2]->type eq 'end' and $to_unget[-2]->tagname =~ /^item-/s) { }
0 0 elsif (@to_unget > 40) { }
304 0 0 if (($text_count_here += length ${$to_unget[-1]->text_r;}) > 150)
313 0 0 if $to_unget[-1]->type eq 'start' and $to_unget[-1]->tagname eq 'Para'
346 0 0 unless defined $next
347 0 0 unless ($next->type eq 'text')
356 3 19 unless defined($scratch = $self->{'Tagmap'}{$tagname})
360 0 19 if ($tagname eq 'item-number') { }
0 19 elsif ($tagname eq 'item-bullet') { }
369 0 22 if (($tagname = $token->tagname) =~ /^over-/s) { }
1 21 elsif ($tagname eq 'Verbatim' or $tagname eq 'VerbatimFormatted') { }
376 3 19 unless defined($scratch = $self->{'Tagmap'}{"/$tagname"})
478 0 3 unless ($class eq 'Pod::Simple::RTF')
480 0 0 if defined $self->VERSION
505 3 0 if length $title
513 0 3 if $title =~ /^\S+$/s and $title =~ /::/s
520 0 3 if $is_obviously_module_name
558 22 0 if $question_mark_code_points
562 67 2 ord $1 < 32768 ? :
22 0 if $plane0
566 22 0 if $other_unicode
573 21 1 shift() ? :
584 19 3 if (not defined wantarray) { }
0 3 elsif (wantarray) { }
597 3 0 @_ == 1 ? :