Implement `chmod' subcommand

Author: pedros

lib/Hadoop/HDFS/Command.pm

@@ -352,6 +352,31 @@ sub _dfs_mkdir {
     return @response
 }
 
+sub _dfs_chmod {
+    my $self    = shift;
+    my $options = shift;
+    my @params  = @_;
+    my @flags   = qw( p );
+    my($arg, $paths) = $self->_parse_options(
+                            \@params,
+                            \@flags,
+                            undef,
+                            {
+                                require_params => 1,
+                            },
+                        );
+    my @response = $self->_capture(
+        $options,
+        $self->cmd_hdfs,
+        qw( dfs -chmod ),
+        ( map { '-' . $_ } grep { $arg->{ $_ } } @flags ),
+        @{ $paths },
+    );
+
+    # just a confirmation message
+    return @response
+}
+
 sub _parse_options {
     my $self = shift;
     # TODO: collect dfs generic options
@@ -653,6 +678,12 @@ The C<@subcommand_args> can have these defined: C<-p>
 
     $hdfs->dfs( mkdir => @subcommand_args, $path );
 
+=head3 chmod
+
+The C<@subcommand_args> can have these defined: C<-R>
+
+    $hdfs->dfs( chmod => @subcommand_args, $mode, $path );
+
 =head1 SEE ALSO
 
 C<`hdfs dfs -help`>.