The code block translation is still broken

[tbrowder]

Given this in Markdown (the apostrophes represent backticks):

'''json

This module still creates:

=begin code json

which causes the pod to fail compilation by Raku.

The proper output for the line should be:

=begin code :lang<json>

[antononcube]

I cannot reproduce this:

[tbrowder]

Thanks, I'll look more closely...

[tbrowder]

A better, complete example. Create a Raku program containing the following lines:

 use Markdown::Grammar;
 my $s = q:to/HERE/;
 ```json
 ```
 HERE
 my $p = from-markdown $s, to => 'pod6';
 say $p;

Call the program 'mtest.raku'. Run

$ raku mtest.raku
=begin pod
=begin code json
{
}

=end code

=end pod

For your pod testing it might be helpful to add a test something like this:

lives-ok {
    EVAL $test-pod-from-markdown;
}

[antononcube]

I still cannot reproduce the bug (with the most recent code of this repository.) See the attached screenshot.