Branch Coverage

blib/lib/Language/Basic.pm
Criterion Covered Total %
branch 25 64 39.0


line true false branch
146 0 190 unless my $self = shift()
168 486 21 if (defined $num and exists $$prog{'lines'}{$num}) { }
185 21 0 defined $line ? :
199 0 1 unless defined $fh
203 0 2 if /^\s*$/
208 0 0 $old_num > 0 ? :
0 2 unless defined $line_num
215 0 2 if ($line_num <= $old_num)
242 0 147 unless defined $self->_add_line($line)
257 0 149 unless $line =~ s/^\s*(\d+)\s+//
291 0 21 if $$self{'parsed'}
319 20 1 unless $$self{'parsed'}
363 233 154 unless (defined($next = $$self{'next_statement'}))
374 21 366 if $$self{'end_program'}
415 255 22 if (defined $next_line) { }
417 0 255 unless my $line = $self->current_line
507 60 0 if (exists $$self{'for_statements'}{$name}) { }
535 0 23 unless @{$$self{'data'};}
567 0 0 unless $$self{'parsed'}
580 0 0 if (@{$$self{'data'};})
604 0 0 if $_ eq 'INDENT'
605 0 0 if $_ eq 'UNINDENT'
606 0 0 if $Output_Indent < 2
611 0 0 s/^A?L\d+:// ? :
627 0 0 if %$n
635 0 0 if $_ eq 'INDENT'
636 0 0 if $_ eq 'UNINDENT'
637 0 0 if $Output_Indent < 0
650 0 0 if (@{$$self{'data'};})
672 0 0 if exists $$n{$func_name}
774 8 149 if (defined $oldst) { }
785 0 149 if ($token_group->stuff_left)