sub done { my $self = shift; if ( $self->foo or $self->bar ) { return 0; } return 1; }