Somewhat improved pod-dump

pod-dump.pl6

#! /usr/bin/env perl6
# vim:set ft=perl6:

sub print-pod(Pod::Block $pod, $level = 0) {
    my $leading = ' ' x $level;
    my %confs;
    for <config name level caption type headers> {
        my $thing = $pod.?"$_"();
        if $thing {
            %confs{$_} = $thing ~~ Iterable ?? $thing.perl !! $thing.Str;
        }
    }
    note $leading, $pod.^name, (%confs.perl if %confs);
    for $pod.content.list {
        when Pod::Block {
            print-pod($_, $level + 2);
        }
        when Array {
            note $leading, 'ARRAY [';
            for @$_ {
                note $leading, "  '$_',";
            }
            note $leading, ']';
        }
        when Str {
            note $_.indent($level + 2);
        }
        default {
            note $leading, 'UNKNOWN {{{', $_.perl, '}}}';
        }
    }
}

sub MAIN($pod-file) {
    my $pod  = eval slurp($pod-file) ~ "\n\$=pod";
    print-pod($_) for @$pod;
}