Weird Idiom Of The Day

Simon on 2002-04-12T17:32:09

# Find Mail::Miner::Recogniser::*

my @modules = map { glob(catfile($_,"*.pm")) } grep { -d $_ } map { catdir($_, "Mail", "Miner", "Recogniser") } @INC;