sub done {
    my $self = shift;

    return 1 if not $self->foo and
                not $self->bar;
    return;
}