use 5.026;

use Carp;
use Data::Dumper;
use Readonly;
use Regexp::Common qw[ delimited ];
use Regexp::Grammars;
use Try::Tiny;
BEGIN {
    say "Regexp::Common:   $Regexp::Common::VERSION";
    say "Regexp::Grammars: $Regexp::Grammars::VERSION";
    }
try {
    my $grammar = qr{
            <nocontext:>
            <TEST>
            <rule: TEST>           <Quoted_String>
            <token: Quoted_String> $RE{delimited}{-delim=>q{'}}{-esc=>q{'}}
            };
    if (q{'some string with containing a '''} =~ $grammar) {
        warn Data::Dumper->new([\%/],[qw(*/)])->Deepcopy(1)->Indent(1)->Maxdepth(3)->Sortkeys(1)->Dump(),q{ };
        };
    }
catch { Carp::cluck $_ }; # line 24
try {
    my $grammar = qr{
            <nocontext:>
            <TEST>
            <rule: TEST>           <Quoted_String>
            <token: Quoted_String> #$RE{delimited}{-delim=>q{'}}{-esc=>q{'}}
            };
    if (q{'some string with containing a '''} =~ $grammar) {
        warn Data::Dumper->new([\%/],[qw(*/)])->Deepcopy(1)->Indent(1)->Maxdepth(3)->Sortkeys(1)->Dump(),q{ };
        };
    }
catch { Carp::cluck $_ }; # line 36