sub done {
    my $self = shift;
    return !$self->foo && !$self->bar; 
}