| Subject: | PPR rejects list of valid string literals |
$ cat try.pl
#!/usr/bin/env perl
use strict;
use warnings;
use PPR;
my $code = <<'_EOT_';
print <<X, qq!
line 1 (in heredoc!)
X
line 3\n!;
_EOT_
#print "Code: >>>\n$code<<<\n\n";
$code =~ m{\A (?&PerlDocument) \z $PPR::GRAMMAR }x
or warn "Not valid Perl according to PPR";
eval $code;
die $@ if $@;
__END__
$ perl try.pl
Not valid Perl according to PPR at try.pl line 16.
line 1 (in heredoc!)
line 3
$