sub done {
    my $self = shift;
    return not $self->foo and not $self->bar; # gotcha!
}