diff --git a/lib/Directory/Simplify/FileHash.pm b/lib/Directory/Simplify/FileHash.pm index a45ec4b..e3c827a 100644 --- a/lib/Directory/Simplify/FileHash.pm +++ b/lib/Directory/Simplify/FileHash.pm @@ -22,16 +22,9 @@ sub new { } sub add { - my $self = shift; - my (@files, $callback); - if (ref $_[0] eq 'HASH') { - # Called method like { files => [] } - my %opts = %{$_[0]}; - @files = @{$opts{files}}; - $callback = $opts{callback}; - } else { - @files = @_; - } + my ($self, %args) = @_; + my @files = @{$args{files}}; + my $callback = $args{callback}; foreach my $file (@files) { unless (ref $file eq 'Directory::Simplify::File') { $file = Directory::Simplify::File->new($file); diff --git a/simplify_static_dir-main.pl b/simplify_static_dir-main.pl index 6b5577f..9dc2cc7 100755 --- a/simplify_static_dir-main.pl +++ b/simplify_static_dir-main.pl @@ -230,10 +230,10 @@ MAIN: { } }; } - $filehash->add({ + $filehash->add( files => \@files, callback => $cb, - }); + ); print STDERR "done.\n" if $verbose;