Branch Coverage

blib/lib/Text/NumericData/App/txdrecycle.pm
Criterion Covered Total %
branch 22 36 61.1


line true false branch
58 0 1 if ($self->{'col'} < 0)
71 3 838 unless ($self->{'data'})
74 1 2 if $self->{'txd'}->line_check($_[0])
77 839 2 if ($self->{'data'})
79 13 826 if ($_[0] =~ /^\s*$/)
89 826 0 if (defined $d)
134 0 14 if @{$self->{'block'};} < 2
138 14 0 $period > 0 ? :
142 0 14 unless $period > 0
149 0 14 if $shift < 0
155 0 14 if $i == 0 or $i == $#{$$self{"block"};}
168 0 14 if ($param->{'smother'})
174 0 0 if not grep({$_ == $i;} @except) and $a[0][$i] != $a[$#a][$i]
182 14 0 if ($dir * $self->{'block'}[0][$self->{'col'}] < -$period)
192 14 0 $dir == 1 ? :
193 14 0 $dir == 1 ? :
198 14 140 if ($arr->[$i][0] >= $val)
205 0 14 $val - $arr->[$lower][0] < $arr->[$upper][0] - $val ? :