[Pdx-pm] recursive IO::Dir

Erik Hollensbe erik at hollensbe.org
Thu Feb 18 12:55:00 PST 2010

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?);


More information about the Pdx-pm-list mailing list