Condition Coverage

blib/lib/IO/ReadPreProcess.pm
Criterion Covered Total %
condition 94 144 65.2


and 3 conditions

line !l l&&!r l&&r condition
209 14 911 2281 defined $self->{'Frame'} and defined $self->{'Frame'}{$p}
281 192 234 32 $self->{'Frame'}{'Code'} and $old->{'CpMove'}
331 0 0 5 $pt = $self->{'Math'}->Parse($var) and @val = $self->{'Math'}->Eval($pt)
373 26 0 0 $self->{'TopIsFd'} and @{$self->{'FrameStk'};} == 1
562 219 0 347 $InLine =~ /^($self->{'DirStartRE'})(\w+)\s*(.*)/ and defined $ctlDirectives{$2} || defined $self->{'subs'}{$2}
610 0 0 46 $arg =~ /\S/ and $line->{'Expr'} = $self->{'Math'}->Parse($arg)
614 0 147 100 defined $blkPairs{$blocks[-1]{'type'}} and $blkPairs{$blocks[-1]{'type'}} eq $dir
624 98 2 0 $arg =~ /(\S+)/ and $blk->{'type'} ne $1
642 268 24 55 $dir eq 'done' and @blocks == 0
671 53 0 112 $code->{'ArgNames'} and @{$code->{'ArgNames'};}
694 193 0 38 substr($arg, 0, length $self->{'DirStart'}) eq $self->{'DirStart'} and $arg =~ /^$self->{'DirStartRE'}(\w+)\s*(.*)/
750 0 35 158 $replay and exists $replay->{'Expr'}
773 0 313 145 defined $self->{'Frame'} and $self->{'Frame'}{'Fd'}
313 145 0 defined $self->{'Frame'} and $self->{'Frame'}{'Fd'} and $self->{'Frame'}{'Fd'}->error
781 0 0 0 $self->{'Fd'} and $self->{'Fd'}->opened
942 615 61 1657 /^($self->{'DirStartRE'})(\w+)\s*(.*)/ and defined $ctlDirectives{$2} || defined $self->{'subs'}{$2}
960 1717 0 0 $self->{'trace'} and $frame->{'Generate'}
999 0 2 27 $frame->{'ParentGenerate'} and not $frame->{'DidGenerate'}
1043 64 0 87 $replay and exists $replay->{'Expr'}
1109 10 232 0 $frame->{'LoopMax'} and ++$frame->{'LoopCnt'} > $frame->{'LoopMax'}
1112 142 14 86 exists $replay->{'For3'} and $frame->{'LoopCnt'} != 1
1140 0 1 27 $le and --$loops <= 0
1162 0 10 30 $ls = exists $self->{'Frame'}{'LoopStart'} and --$loops <= 0
1203 8 32 2 not defined $stream and $fn =~ /^-p(\d*)$/
1380 0 0 2 @args and exists $an{$args[0]}
0 0 2 @args and exists $an{$args[0]} and @args == $an{$args[0]}
1385 0 0 2 $fn = $self->ResolveFilename($args[1], 1) and @stat = stat $fn
1401 0 0 0 $arg =~ /^(\w+)=(\d+)/ and $options{$1}

or 3 conditions

line l !l&&r !l&&!r condition
253 322 136 0 defined $self->{'Frame'}{'Code'} or defined $self->{'Frame'}{'Fd'}
445 1 9 2459 $c1 eq '"' or $c1 eq q[']
562 341 6 0 defined $ctlDirectives{$2} || defined $self->{'subs'}{$2}
694 244 38 193 $esc = exists $replay->{'SubCond'} or substr($arg, 0, length $self->{'DirStart'}) eq $self->{'DirStart'} and $arg =~ /^$self->{'DirStartRE'}(\w+)\s*(.*)/
841 4 0 1 ref $strm eq 'IO::File' or ref $strm eq 'IO::Handle'
863 603 411 0 defined $self->{'Frame'}{'Code'} or defined $self->{'Frame'}{'Fd'}
942 1655 62 1 defined $ctlDirectives{$2} || defined $self->{'subs'}{$2}
966 82 18 1617 $dir eq 'if' or $dir eq 'unless'
988 26 3 1588 $dir eq 'elseif' or $dir eq 'elsif'
990 28 1 0 $frame->{'Type'} eq 'if' or $frame->{'Type'} eq 'unless'
1016 31 10 0 $frame->{'Type'} eq 'if' or $frame->{'Type'} eq 'unless'
1032 63 10 0 $frame->{'Type'} eq 'if' or $frame->{'Type'} eq 'unless'
1075 152 106 90 $doneDone or $frame->{'CondReRun'}
1089 152 106 90 $doneDone or $frame->{'CondReRun'}
1134 27 0 402 $dir eq 'break' or $dir eq 'last'
1152 30 0 372 $dir eq 'continue' or $dir eq 'next'
1406 0 0 57 $dir eq 'function' or $dir eq 'do'
0 0 57 $dir eq 'function' or $dir eq 'do' or $dir eq 'case'
0 0 57 $dir eq 'function' or $dir eq 'do' or $dir eq 'case' or $dir eq 'switch'
0 0 57 $dir eq 'function' or $dir eq 'do' or $dir eq 'case' or $dir eq 'switch' or $dir eq 'endswitch'