|
104
|
0 |
0 |
13 |
$args{'reg'} || do {
BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x45\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15"}
BEGIN {
$^H{'Regexp::Grammars::active'} = '1';
$^H{'qr'} = 'CODE(0x2eb6470)';
}
qr/0(??{ quotemeta $delim{$Perl6::Pod::Utl::ARG{'ldelim'}}; })0(?{ exists $allow{'*'} or exists $allow{$Perl6::Pod::Utl::ARG{'name'}} if $Perl6::Pod::Utl::ARG{'name'} and $Perl6::Pod::Utl::ARG{'name'} eq uc $Perl6::Pod::Utl::ARG{'name'}; })0(?{
$Perl6::Pod::Utl::MATCH{'entry'} = $Perl6::Pod::Utl::MATCH{'text'};
$Perl6::Pod::Utl::MATCH{'form'} = 1;
})0(?{ $Perl6::Pod::Utl::MATCH{'form'} = 2; })0${DEFER_REGEX_COMPILATION}0/msx
} |