File Coverage

blib/lib/Eixo/Docker.pm

Criterion	Covered	Total	%
statement	20	30	66.6
branch	0	8	0.0
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	27	47	57.4

package Eixo::Docker;

use 5.008;
use strict;
use warnings;

use parent qw(Eixo::Base::Clase);
use JSON;
use Net::HTTP;
use Eixo::Rest::Client;


# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

our $VERSION = '1.208';

our $IDENTITY_FUNC = sub {

    (wantarray)? @_ : $_[0];

};


sub get_dir_files{
    my $dir = $_[0];

    die("dir path specified doesn't exists") unless(-d $dir);

    opendir(my $fh_dir, $dir) || die("Error opening dir $dir:$!");

    my @list;

    while(my $file = readdir($fh_dir)){

        next if($file =~ /^\.+$/);

        push @list, "$dir/$file";

        push @list, get_dir_files("$dir/$file") if(-d "$dir/$file");

    }

    closedir($fh_dir);

    return @list;
}

1;