sub done {
    my $self = shift;

    return 1 unless $self->foo or $self->bar;
    return;
}