sub start {
    my $self = shift;

    while (1) {
	last unless $self->do_one_loop();
    }
}