test.p6

# test.p6 --- temporary testing file for Pod parser

use v6;

use lib "lib/";
use Grammar;
use Actions;
use World;

my $*W = Earth.new;

# TEMP TEST

my $testpod = q:to/NOTPOD/;
    =begin pod :!autotoc
    =       :autotoc<a b> :imconfused :!ok

    =config L<> :okthen

    =TITLE The First of May

    =AUTHOR B, R & M Gibb

    =config R<> :abcd

    Hello there L<ALL OK >
    Everybody

    Another para

        AND SOME CODE C««
            GLORIOUS»» CODE
        HELLO SAILOR

    =encoding iso8859-1

    =config code :allow<B I>

        And now some code B<here> and I<here>.

    V<>=alias FOOBAR quuxy

    And one more para
        Hanging indent!!~~

    =end pod

    =config head1 :like<head73>

    =encoding aosdf aoish ao
    sdifao sodk
NOTPOD

say Pod6::Grammar.parse($testpod, :actions(Pod6::Actions)).ast;