Condition Coverage

blib/lib/Hardware/Vhdl/Tidy.pm
Criterion Covered Total %
condition 53 102 51.9


and 3 conditions

line !l l&&!r l&&r condition
142 0 0 0 eval { do { $outobj->can('addtokens') } } and not $@
177 22 0 1498 ($token, $type) = $lexer->get_next_token and defined $type
185 447 0 236 @outline == 0 and $args{'preprocessor_prefix'} ne ''
447 215 21 @outline == 0 and $args{'preprocessor_prefix'} ne '' and substr($token, 0, length $args{'preprocessor_prefix'}) eq $args{'preprocessor_prefix'}
188 0 0 77 ($t, $type) = $lexer->get_next_token and defined $type
208 532 1 27 $lctoken eq 'end' and $linestart
512 0 0 $lctoken eq 'else' and @stack
512 0 0 $lctoken eq 'else' and @stack and $botlevel eq 'if'
511 0 1 $lctoken eq 'is' and $line =~ /^ (entity|architecture|configuration|package|((im)?pure \s )?function|procedure) \s /msx
511 0 0 $lctoken eq 'is' and $line =~ /^(\S+ : )?case /
0 510 1 $lctoken ne 'is' and $line =~ /^ (\S+ \s : \s )?(component|block|(postponed \s )?process) \s (is \s )?\S+ \s $/msx
498 6 6 $lctoken eq 'loop' and $line =~ /^(\S+ : )?(for|while) /
498 6 0 $lctoken eq 'for' and $toplevel eq 'configuration'
504 0 0 $lctoken eq 'for' and $toplevel eq 'configuration' and not $line =~ /^end for $/
6 0 0 $lctoken eq 'for' and $toplevel eq 'configuration' and not $line =~ /^end for $/ and not $line =~ / end for $/
492 6 6 $lctoken =~ /^(case|if|for|while|loop)$/ and $line =~ /^((\S+) : )?\S+ $/
456 21 21 $lctoken eq 'process' and $line =~ /^((\S+) : )?(postponed )?process $/
477 0 0 $lctoken eq '=>' and $botlevel eq 'case'
477 0 0 $lctoken eq '=>' and $botlevel eq 'case' and $line =~ /^when /
477 0 0 $lctoken eq 'when' and $linestart
477 0 0 $lctoken eq 'when' and $linestart and $botlevel eq 'case=>'
474 1 2 $lctoken =~ /^(entity|architecture|configuration|package|function|procedure|component|units)$/ and $linestart
475 0 0 $lctoken =~ /^(block)$/ and $line =~ /^(\S+) : \S+ $/
475 0 0 $line =~ /^type / and $lctoken =~ /^(access|units|record)$/
209 102 0 0 $toplevel eq 'architecture' and $line =~ /^for .* : /
102 0 0 $line =~ /^(pure |impure |)function \S+ return .* ; $/ and not $line =~ / is /
327 0 0 0 $bracks == 0 and not $linestart
338 257 6 15 $type eq 'pp' and not $args{'indent_preprocessor'}
344 0 200 63 $bracks == 0 and not $linestart

or 2 conditions

line l !l condition
60 2 0 $afile . $bext || die("Could not rename ${afile}: $!\n")
78 17 0 $args{'source'} || die("Could not read $args{'source'}: $!\n")
87 2 0 $args{'destination'} || die("Could not write $args{'destination'}: $!\n")

or 3 conditions

line l !l&&r !l&&!r condition
209 0 0 102 $toplevel eq 'architecture' and $line =~ /^for .* : / or $line =~ /^(pure |impure |)function \S+ return .* ; $/ and not $line =~ / is /
0 0 102 $toplevel eq 'architecture' and $line =~ /^for .* : / or $line =~ /^(pure |impure |)function \S+ return .* ; $/ and not $line =~ / is / or $line =~ /^procedure \S+ ; $/
0 0 102 $toplevel eq 'architecture' and $line =~ /^for .* : / or $line =~ /^(pure |impure |)function \S+ return .* ; $/ and not $line =~ / is / or $line =~ /^procedure \S+ ; $/ or $botlevel eq 'type-access'