[Templates] Directory traversal module for ttree work-alike

[Dylan Hardison]

I've got a mostly working module that can replace the directory
traversal parts of
ttree. It's not really specific to TT, and I'd really like a better
name than "File::Find::Tsite".

It has POD documentation.
Here's a good example:

#!/usr/bin/perl

use strict;
use warnings;
use File::Find::Tsite qw( :all );

my $finder = match(
    qr/\.svn/  => sub { IGNORE },
    qr/_build/ => sub { IGNORE },
    qr/\.pm$/  => sub {
        print "Perl module: $_\n";
        return DONE; # default is still executed.
    },
    default    => sub {
        if (-d $_) {
            print "$_/\n";
        } else {
            print "$_\n";
        }
    },
);

find($finder, '.');

Comments? The idea of match() is you can build the copy/ignore/accept
rules from .ttreerc on the fly...  my local hacked version of ttree
grows ever-more small... <g>

File-Find-Tsite-0.01.tar.gz
Description: Unix tar archive