| Subject: | OPTIONS read as REQUIRED ARGUMENTS when a =cut is in between the sections |
The attached file replicates the error. If your POD looks like:
=head1 REQUIRED ARGUMENTS
=over
...
=back
=cut
=head1 OPTIONS
...
Then your options are read as required arguments. This can easily be
fixed in code using Getopt::Euclid by putting something between =cut and
=head1 OPTIONS, however, this is still a bug. Am looking into this.
| Subject: | cut_test_fail.pl |
#!/usr/bin/env perl
use strict;
use warnings;
BEGIN { @ARGV = qw( -a 1 ) }
use Getopt::Euclid;
=head1 REQUIRED ARGUMENTS
=over
=item -a <a>
=back
=cut
=head1 OPTIONS
=over
=item -b <b>
=back
=cut