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->{depthCount} = 0;
$self->{filesInDir} = 0;
$self->{count} = 0;
# $self->{customResponse} = {};
@@ -119,9 +119,9 @@ sub currentBasename {
return $self->{currentBasename};
}
sub filesInDir {
sub count {
my ($self) = @_;
return $self->{filesInDir};
return $self->{count};
}
sub walk {
@@ -153,7 +153,7 @@ sub walk {
my @dir_contents = readdir $dirh;
@dir_contents = File::Spec->no_upwards(@dir_contents);
$self->{filesInDir} = scalar @dir_contents;
$self->{count} = scalar @dir_contents;
++$self->{depthCount};
if ((my $r = $self->{onDirEnter}->($path)) != SUCCESS) {
@@ -328,9 +328,9 @@ Returns the current base name of the current path:
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 ..
=item walk($path)