sub genReuseCode()

in maxas/MaxAs/MaxAsGrammar.pm [1164:1170]

• 7 lines of code
• 2 McCabe index (conditional complexity)

sub genReuseCode
{
    my $capData = shift;
    my $reuse = 0;
    $reuse |= $reuseCodes{$_} foreach grep $capData->{$_}, keys %reuseCodes;
    return $reuse;
}