A simple closures example, with file walking

closure.pl6

#!./perl6-m
use v6;

sub MAIN($path = '.') {
    my $counter = 0;
    my $callback = sub ($file) {
        $counter++;
        say $counter, "\t", $file.Str;
    };

    walk $path, $callback;
}

sub walk($dir, &callback) {
    for dir($dir) -> $path {
        if $path.d {
            walk $path, &callback;
        }
        else {
            callback($path);
        }
    }
}

# vim: ft=perl6