in reply to Re^2: __END__ without __BEGIN__?
in thread __END__ without __BEGIN__?

You could probably do that (more or less) using source filters.

use Filter::ignore-until-BEGIN-token;
b@d

__BEGIN__

print 'ignore b@d';
die;

[download]

Now all that has to be done is writing the Filter::ignore-until-BEGIN-token-filter.

We will leave that as an exercise for the reader. ;-)

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

In Section Seekers of Perl Wisdom