p6.p6

role Pod::Walker::Preprocessor {
    has %!aliases;
    multi method visit(Str $node) { }
    multi method visit(Pod::FormattingCode $node) {
        $node.contents = %!aliases{$node.contents.first} if $node.type eq 'A';
    }
    multi method visit(Pod::Block::Named $node) {
        return self.addAlias($node) if $node.name eq 'alias';
        $node.contents.map({ self.visit($_) });
    }
    multi method visit($node) {
        eager $node.contents.map({ say $_; });
    }
    submethod addAlias($node) {
        my @contents = $node.contents[0].contents.split(' ');
        $node.contents.split(' ');
        %!aliases{@contents[0]} = @contents[1..*-1];
    }
}

=begin AliasTest
=alias PROGNAME    Earl Irradiatem Eventually
=alias VENDOR      4D Kingdoms
=alias TERMS_URL   L<http://www.4dk.com/eie>

The use of A<PME> is subject to the terms and conditions
laid out by A<VENDOR>, as specified at A<TERMS_URL>.

=end AliasTest

Pod::Walker::Preprocessor.new().visit($=pod[0]);