if ($all_done) {
      $self->end_document();
      die "Ended early!\n";
    }

##</code><code>##

    eval { # parse call here };
    if ($@ and $@ =~ /Ended early/) {
      # it's ok
    } elsif ($@) {
      die $@;
    }