PPR
view release on metacpan or search on metacpan
(Sincere thanks to Merijn)
* Made interpolating quotelikes work (more) correctly.
0.000012 Mon Aug 21 20:40:08 2017
* Handled /.../n flag
(thanks, David)
* Handled leading BOM correctly
(thanks, David)
* Handled ${!}-style punctuation variables
(thanks, David)
* "fline" is not a word (thanks, Hugo ;-)
* Added (?&PerlEndOfLine)
(Thanks, Yves)
|
(?(?{ !defined $PPR::ERROR })
(?>(?&PerlOWSOrEND)) (?{pos()}) ([^\n]++)
(?{ $PPR::ERROR = PPR::ERROR->new(source => "$^N", prefix => substr($_, 0, $^R) ) })
(?!)
)
)
) # End of rule (?<PerlEntireDocument>)
(?<PerlDocument>
\x{FEFF}?+ # Optional BOM marker
(?&PerlStatementSequence)
(?&PerlOWSOrEND)
) # End of rule (?<PerlDocument>)
(?<PerlStatementSequence>
(?>(?&PerlPodSequence))
(?:
(?&PerlStatement)
(?&PerlPodSequence)
)*+
lib/PPR/X.pm view on Meta::CPAN
|
(?(?{ !defined $PPR::X::ERROR })
(?>(?&PerlOWSOrEND)) (?{pos()}) ([^\n]++)
(?{ $PPR::X::ERROR = PPR::X::ERROR->new(source => "$^N", prefix => substr($_, 0, $^R) ) })
(?!)
)
)
)) # End of rule
(?<PerlDocument> (?<PerlStdDocument>
\x{FEFF}?+ # Optional BOM marker
(?&PerlStatementSequence)
(?&PerlOWSOrEND)
)) # End of rule
(?<PerlStatementSequence> (?<PerlStdStatementSequence>
(?>(?&PerlPodSequence))
(?:
(?&PerlStatement)
(?&PerlPodSequence)
)*+
( run in 0.451 second using v1.01-cache-2.11-cpan-e9daa2b36ef )