File Coverage

lib/Rex/Constants.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 5 10 50.0
pod 0 6 0.0
total 17 33 51.5


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Constants;
6              
7 32     32   428 use v5.12.5;
  32         128  
8 32     32   168 use warnings;
  32         66  
  32         1936  
9              
10             our $VERSION = '1.14.2.3'; # TRIAL VERSION
11              
12             require Rex::Exporter;
13 32     32   238 use base qw(Rex::Exporter);
  32         100  
  32         2503  
14 32     32   242 use vars qw(@EXPORT);
  32         68  
  32         5207  
15              
16             @EXPORT = qw(present absent latest running started stopped);
17              
18 4     4 0 50 sub present { return "present"; }
19 0     0 0   sub absent { return "absent"; }
20 0     0 0   sub latest { return "latest"; }
21 0     0 0   sub running { return "running"; }
22 0     0 0   sub started { return "started"; }
23 0     0 0   sub stopped { return "stopped"; }
24              
25             1;