=cut found outside a pod block.

[Graham Barr]

In Pod::Simple::BlackBox this code

    if(!$self->{'in_pod'}) {
      if($line =~ m/^=([a-zA-Z]+)/s) {
        if($1 eq 'cut') {
          $self->scream(
            $self->{'line_count'},
            "=cut found outside a pod block.  Aborting processing of this file."
          );
          splice @_;
          push @_, undef;
          next;
        } else {

Causes the following code to die if a =cut is found outside a pod block

  my $p = Pod::Simple::PullParser->new;
  $p->set_source(shift);
  my $title = $p->get_title;

Why is this error considered so bad that it must abort processing and cause die to be
called in get_token ?

I commented out splice and push in the above code and things work fine, the error is 
shown
in the errata section

Graham.