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


line stmt bran cond sub pod time code
1             package Eixo::Docker;
2              
3 1     1   882 use 5.008;
  1         4  
4 1     1   5 use strict;
  1         2  
  1         25  
5 1     1   6 use warnings;
  1         10  
  1         38  
6              
7 1     1   842 use parent qw(Eixo::Base::Clase);
  1         358  
  1         7  
8 1     1   14929 use JSON;
  1         3  
  1         9  
9 1     1   1016 use Net::HTTP;
  1         70070  
  1         16  
10 1     1   1940 use Eixo::Rest::Client;
  1         133891  
  1         7  
11              
12              
13             # Items to export into callers namespace by default. Note: do not export
14             # names by default without a very good reason. Use EXPORT_OK instead.
15             # Do not simply export all your public functions/methods/constants.
16              
17             our $VERSION = '1.208';
18              
19             our $IDENTITY_FUNC = sub {
20              
21             (wantarray)? @_ : $_[0];
22              
23             };
24              
25              
26             sub get_dir_files{
27 0     0 0   my $dir = $_[0];
28            
29 0 0         die("dir path specified doesn't exists") unless(-d $dir);
30            
31 0 0         opendir(my $fh_dir, $dir) || die("Error opening dir $dir:$!");
32            
33 0           my @list;
34            
35 0           while(my $file = readdir($fh_dir)){
36            
37 0 0         next if($file =~ /^\.+$/);
38            
39 0           push @list, "$dir/$file";
40            
41 0 0         push @list, get_dir_files("$dir/$file") if(-d "$dir/$file");
42            
43             }
44            
45 0           closedir($fh_dir);
46            
47 0           return @list;
48             }
49              
50             1;