[Melbourne-pm] I <3 map & grep

[Toby Corkindale]

But perhaps, a little too much..
I just found myself this:


     use Config::General qw(ParseConfig);
     ...
     opendir(my $dir, $self->sites_dir) or die..;

     my %sites = map  { $_->{name} => Streuth::Site->new($_) }
                 map  { { ParseConfig($_) } }
                 grep { -f $_ }
                 map  { File::Spec->catfile($self->sites_dir, $_) }
                 grep { /^[-_a-zA-Z\d\.]+$/ }
                 readdir($dir);

     closedir $dir;
     return \%sites;