Condition Coverage

blib/lib/IO/ReadPreProcess.pm
Criterion Covered Total %
condition 92 141 65.2


and 3 conditions

line !l l&&!r l&&r condition
202 14 904 2281 defined $self->{'Frame'} and defined $self->{'Frame'}{$p}
274 191 234 32 $self->{'Frame'}{'Code'} and $old->{'CpMove'}
324 0 0 5 $pt = $self->{'Math'}->Parse($var) and @val = $self->{'Math'}->Eval($pt)
366 26 0 0 $self->{'TopIsFd'} and @{$self->{'FrameStk'};} == 1
555 219 0 347 $InLine =~ /^($self->{'DirStartRE'})(\w+)\s*(.*)/ and defined $ctlDirectives{$2} || defined $self->{'subs'}{$2}
603 0 0 46 $arg =~ /\S/ and $line->{'Expr'} = $self->{'Math'}->Parse($arg)
607 0 147 100 defined $blkPairs{$blocks[-1]{'type'}} and $blkPairs{$blocks[-1]{'type'}} eq $dir
617 98 2 0 $arg =~ /(\S+)/ and $blk->{'type'} ne $1
635 268 24 55 $dir eq 'done' and @blocks == 0
664 53 0 112 $code->{'ArgNames'} and @{$code->{'ArgNames'};}
687 193 0 38 substr($arg, 0, length $self->{'DirStart'}) eq $self->{'DirStart'} and $arg =~ /^$self->{'DirStartRE'}(\w+)\s*(.*)/
743 0 35 158 $replay and exists $replay->{'Expr'}
766 0 313 144 defined $self->{'Frame'} and $self->{'Frame'}{'Fd'}
313 144 0 defined $self->{'Frame'} and $self->{'Frame'}{'Fd'} and $self->{'Frame'}{'Fd'}->error
774 0 0 0 $self->{'Fd'} and $self->{'Fd'}->opened
896 610 55 1657 /^($self->{'DirStartRE'})(\w+)\s*(.*)/ and defined $ctlDirectives{$2} || defined $self->{'subs'}{$2}
914 1711 0 0 $self->{'trace'} and $frame->{'Generate'}
953 0 2 27 $frame->{'ParentGenerate'} and not $frame->{'DidGenerate'}
997 64 0 87 $replay and exists $replay->{'Expr'}
1063 10 232 0 $frame->{'LoopMax'} and ++$frame->{'LoopCnt'} > $frame->{'LoopMax'}
1066 142 14 86 exists $replay->{'For3'} and $frame->{'LoopCnt'} != 1
1094 0 1 27 $le and --$loops <= 0
1116 0 10 30 $ls = exists $self->{'Frame'}{'LoopStart'} and --$loops <= 0
1157 8 32 2 not defined $stream and $fn =~ /^-p(\d*)$/
1315 0 0 2 @args and exists $an{$args[0]}
0 0 2 @args and exists $an{$args[0]} and @args == $an{$args[0]}
1320 0 0 2 $fn = $self->ResolveFilename($args[1], 1) and @stat = stat $fn
1336 0 0 0 $arg =~ /^(\w+)=(\d+)/ and $options{$1}

or 3 conditions

line l !l&&r !l&&!r condition
246 322 135 0 defined $self->{'Frame'}{'Code'} or defined $self->{'Frame'}{'Fd'}
438 1 9 2459 $c1 eq '"' or $c1 eq q[']
555 341 6 0 defined $ctlDirectives{$2} || defined $self->{'subs'}{$2}
687 244 38 193 $esc = exists $replay->{'SubCond'} or substr($arg, 0, length $self->{'DirStart'}) eq $self->{'DirStart'} and $arg =~ /^$self->{'DirStartRE'}(\w+)\s*(.*)/
817 603 405 0 defined $self->{'Frame'}{'Code'} or defined $self->{'Frame'}{'Fd'}
896 1649 62 1 defined $ctlDirectives{$2} || defined $self->{'subs'}{$2}
920 82 18 1611 $dir eq 'if' or $dir eq 'unless'
942 26 3 1582 $dir eq 'elseif' or $dir eq 'elsif'
944 28 1 0 $frame->{'Type'} eq 'if' or $frame->{'Type'} eq 'unless'
970 31 10 0 $frame->{'Type'} eq 'if' or $frame->{'Type'} eq 'unless'
986 63 10 0 $frame->{'Type'} eq 'if' or $frame->{'Type'} eq 'unless'
1029 152 106 90 $doneDone or $frame->{'CondReRun'}
1043 152 106 90 $doneDone or $frame->{'CondReRun'}
1088 27 0 396 $dir eq 'break' or $dir eq 'last'
1106 30 0 366 $dir eq 'continue' or $dir eq 'next'
1341 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'