File Coverage

blib/lib/FusionInventory/Agent/Task/Deploy/Job.pm
Criterion Covered Total %
statement 9 22 40.9
branch 0 6 0.0
condition n/a
subroutine 3 7 42.8
pod 0 4 0.0
total 12 39 30.7


line stmt bran cond sub pod time code
1             package FusionInventory::Agent::Task::Deploy::Job;
2              
3 3     3   39542804 use strict;
  3         10  
  3         150  
4 3     3   31 use warnings;
  3         15  
  3         187  
5              
6 3     3   27 use English qw(-no_match_vars);
  3         126  
  3         47  
7              
8             sub new {
9 0     0 0   my ($class, %params) = @_;
10              
11             my $self = {
12             uuid => $params{data}->{uuid},
13             requires => $params{data}->{requires},
14             checks => $params{data}->{checks},
15             actions => $params{data}->{actions},
16             associatedFiles => $params{associatedFiles}
17 0           };
18              
19 0           bless $self, $class;
20              
21 0           return $self;
22             }
23              
24              
25             sub checkWinkey {
26 0     0 0   my ($self) = @_;
27              
28 0 0         return 1 unless $self->{requires}{winkey};
29              
30 0 0         return unless $OSNAME eq 'MSWin32'
31             }
32              
33             sub checkFreespace {
34 0     0 0   my ($self) = @_;
35              
36 0           return 1;
37             }
38              
39             sub getNextToProcess {
40 0     0 0   my ($self) = @_;
41              
42 0 0         return unless $self->{actions};
43              
44 0           shift @{$self->{actions}};
  0            
45             }
46              
47             1;