Condition Coverage

blib/lib/Text/Reflow.pm
Criterion Covered Total %
condition 34 70 48.5


and 3 conditions

line !l l&&!r l&&r condition
81 0 0 0 $k < $j and $interval > $opt + 10 || $interval >= $maximum
418 0 84 21 $Text::Reflow::skipindented and $line =~ /^($Text::Reflow::pin|\t).*\S/
84 0 0 $Text::Reflow::noreflow ne '' and $line =~ /$Text::Reflow::noreflow/
432 369 0 0 $Text::Reflow::noreflow ne '' and $line =~ /$Text::Reflow::noreflow/
452 10 0 0 $Text::Reflow::noreflow ne '' and $line =~ /$Text::Reflow::noreflow/
485 109 372 36 @Text::Reflow::linewords and $Text::Reflow::linewords[0] eq ''
488 109 68 340 @Text::Reflow::linewords and @Text::Reflow::words
177 340 0 @Text::Reflow::linewords and @Text::Reflow::words and $Text::Reflow::words[$#Text::Reflow::words] =~ /[a-zA-Z0-9]-$/
502 68 340 0 $#Text::Reflow::words >= 0 and $Text::Reflow::linewords[0] =~ s/^--[^a-zA-Z0-9]*//
571 4610 0 0 $Text::Reflow::words[$j] =~ /[\?\!]["')]*$/ and $j >= $#Text::Reflow::words || $Text::Reflow::words[$j + 1] =~ /^[^a-zA-Z]*[A-Z]/
588 68 4541 1 $j < $#Text::Reflow::words and $Text::Reflow::words[$j + 1] =~ /^\(/
594 4030 18 494 $Text::Reflow::words[$j] =~ /[A-Z]/ and not $Text::Reflow::words[$j] =~ /\./
4048 416 78 $Text::Reflow::words[$j] =~ /[A-Z]/ and not $Text::Reflow::words[$j] =~ /\./ and $Text::Reflow::words[$j + 1] =~ /[A-Z]/
68 4542 0 $j < $#Text::Reflow::words and ($Text::Reflow::words[$j] =~ /[A-Z]/ and not $Text::Reflow::words[$j] =~ /\./ and $Text::Reflow::words[$j + 1] =~ /[A-Z]/)

or 2 conditions

line l !l condition
279 4 0 close TO or croak("Cannot close `${to}': $!")
280 4 0 close FROM or croak("Cannot close `${from}': $!")

or 3 conditions

line l !l&&r !l&&!r condition
81 0 0 0 $interval > $opt + 10 || $interval >= $maximum
100 0 0 0 $interval > $opt + 10 or $interval > $maximum
237 0 0 0 ref $from eq 'GLOB' || UNIVERSAL::isa($from, 'GLOB') || UNIVERSAL::isa($from, 'IO::Handle')
242 0 0 0 ref $to eq 'GLOB' || UNIVERSAL::isa($to, 'GLOB') || UNIVERSAL::isa($to, 'IO::Handle')
418 21 0 84 $Text::Reflow::skipindented and $line =~ /^($Text::Reflow::pin|\t).*\S/ or $Text::Reflow::noreflow ne '' and $line =~ /$Text::Reflow::noreflow/
452 20 0 10 $line =~ /^($Text::Reflow::pin|\t).*\S/ or $Text::Reflow::noreflow ne '' and $line =~ /$Text::Reflow::noreflow/
561 187 0 0 not defined $Text::Reflow::abbrev{$1} or $2 eq ':'
571 0 0 0 $j >= $#Text::Reflow::words || $Text::Reflow::words[$j + 1] =~ /^[^a-zA-Z]*[A-Z]/