line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# |
2
|
|
|
|
|
|
|
# (c) Jan Gehring |
3
|
|
|
|
|
|
|
# |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
package Rex::Constants; |
6
|
|
|
|
|
|
|
|
7
|
32
|
|
|
32
|
|
426
|
use v5.12.5; |
|
32
|
|
|
|
|
142
|
|
8
|
32
|
|
|
32
|
|
177
|
use warnings; |
|
32
|
|
|
|
|
71
|
|
|
32
|
|
|
|
|
1819
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
our $VERSION = '1.14.3'; # VERSION |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
require Rex::Exporter; |
13
|
32
|
|
|
32
|
|
215
|
use base qw(Rex::Exporter); |
|
32
|
|
|
|
|
131
|
|
|
32
|
|
|
|
|
2418
|
|
14
|
32
|
|
|
32
|
|
225
|
use vars qw(@EXPORT); |
|
32
|
|
|
|
|
81
|
|
|
32
|
|
|
|
|
5063
|
|
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
@EXPORT = qw(present absent latest running started stopped); |
17
|
|
|
|
|
|
|
|
18
|
4
|
|
|
4
|
0
|
44
|
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; |