[Pdx-pm] recursive IO::Dir

[Erik Hollensbe]

On 02/18/10 15:47, Andy Lester wrote:
>
> On Feb 18, 2010, at 2:41 PM, Erik Hollensbe wrote:
>
>> Instead of plugging my own software, I'll mention File::Find because 
>> no one has yet. It should already be on your system.
>
>
> No, go ahead, plug your software.  What file digging module is yours?

package My::FileDiggingModule;

use strict;
use warnings;

use File::Find qw(find);

sub find_a_directory { -d }

sub gotta_catch_them_all {
   find(\&find_a_directory, @_);
}

q(how do you like them apples?);

-Erik