Raku Markdown

ramd.raku

#!/usr/bin/env raku
use MONKEY-SEE-NO-EVAL;

#| takes markdown file and evals all code lines delimited by '```perl6 xxx ```'
sub MAIN(
    $filename!,         #= '/pathto/example.md'
) {

    my @lines  = $filename.IO.lines or die 'no file found';
    my $toggle = False;
    my $code;

    for @lines -> $line {
        when $line ~~ /^ '```perl6'/ { $toggle = True }
        when $line ~~ /^ '```'/      { $toggle = False }
        when $toggle                 { $code  ~= "$line\n" }
    }

    EVAL $code // warn "no code found";
}