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

M: Renamed filesInDir() to count().

Browse Source
This commit is contained in:
Jens Luedicke
2013-03-09 13:27:48 +01:00
parent ff77f66d82
commit 0a3f85d5bf
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/File/DirWalk.pm
View File

@@ -39,7 +39,7 @@ sub new {
$self->{depth} = 0; $self->{depth} = 0;
$self->{depthCount} = 0; $self->{depthCount} = 0;
$self->{filesInDir} = 0; $self->{count} = 0;
# $self->{customResponse} = {}; # $self->{customResponse} = {};
@@ -119,9 +119,9 @@ sub currentBasename {
return $self->{currentBasename}; return $self->{currentBasename};
} }
sub filesInDir { sub count {
my ($self) = @_; my ($self) = @_;
return $self->{filesInDir}; return $self->{count};
} }
sub walk { sub walk {
@@ -153,7 +153,7 @@ sub walk {
my @dir_contents = readdir $dirh; my @dir_contents = readdir $dirh;
@dir_contents = File::Spec->no_upwards(@dir_contents); @dir_contents = File::Spec->no_upwards(@dir_contents);
$self->{filesInDir} = scalar @dir_contents; $self->{count} = scalar @dir_contents;
++$self->{depthCount}; ++$self->{depthCount};
if ((my $r = $self->{onDirEnter}->($path)) != SUCCESS) { if ((my $r = $self->{onDirEnter}->($path)) != SUCCESS) {
@@ -328,9 +328,9 @@ Returns the current base name of the current path:
return SUCCESS; return SUCCESS;
}); });
=item filesInDir =item count
Returns the number of files wthin the current directory. Returns the number of elements wthin the current directory.
Excludes . and .. Excludes . and ..
=item walk($path) =item walk($path)