jens/File-DirWalk
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

M: Simplified initialization of action callbacks.

Browse Source
This commit is contained in:
Jens Luedicke
2013-03-09 21:24:05 +01:00
parent 456b79fb21
commit 4cabd19964
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/File/DirWalk.pm
View File

@@ -30,13 +30,11 @@ sub new {
my ($class) = @_; my ($class) = @_;
my $self = bless {}, $class; my $self = bless {}, $class;
$self->{onBeginWalk} = sub { SUCCESS }; foreach my $action (qw/onBeginWalk onLink onFile onDirEnter onDirLeave/) {
$self->{onLink} = sub { SUCCESS }; $self->{$action} = sub { SUCCESS };
$self->{onFile} = sub { SUCCESS }; }
$self->{onDirEnter} = sub { SUCCESS };
$self->{onDirLeave} = sub { SUCCESS };
$self->{depth} = 0; $self->{depth} = 0;
$self->{currentDepth} = 0; $self->{currentDepth} = 0;
$self->{entryList} = []; $self->{entryList} = [];