Implement `mkdir' subcommand

Author: pedros

lib/Hadoop/HDFS/Command.pm

@@ -327,6 +327,31 @@ sub _dfs_test {
     } or return 0;
 }
 
+sub _dfs_mkdir {
+    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 -mkdir ),
+        ( map { '-' . $_ } grep { $arg->{ $_ } } @flags ),
+        @{ $paths },
+    );
+
+    # just a confirmation message
+    return @response
+}
+
 sub _parse_options {
     my $self = shift;
     # TODO: collect dfs generic options
@@ -622,6 +647,12 @@ The C<@subcommand_args> can have these defined: C<-d>, C<-e>, C<-f>, C<-s>, C<-z
 
     $hdfs->dfs( test => @subcommand_args, $hdfs_path );
 
+=head3 mkdir
+
+The C<@subcommand_args> can have these defined: C<-p>
+
+    $hdfs->dfs( mkdir => @subcommand_args, $path );
+
 =head1 SEE ALSO
 
 C<`hdfs dfs -help`>.