| Subject: | PPR gets confused about multiple heredocs using the same terminator |
$ cat try.pl
#!/usr/bin/env perl
use strict;
use warnings;
use PPR;
my $code = <<'_EOT_';
<<A . <<A;
)
A
]
A
_EOT_
$code =~ m{ \A (?&PerlDocument) \z $PPR::GRAMMAR }x
or warn "Not valid Perl according to PPR";
print eval $code;
die $@ if $@;
__END__
$ perl try.pl
Not valid Perl according to PPR at try.pl line 15.
)
]
$