sub done {
    my $self = shift;

    return !($self->foo or $self->bar);
}

##</code><code>##

$decison = $Decide{$cndx1$cndx2$cndx3};