File Coverage

blib/lib/Pfacter.pm
Criterion Covered Total %
statement 0 9 0.0
branch 0 4 0.0
condition n/a
subroutine 0 1 0.0
pod 0 1 0.0
total 0 15 0.0


line stmt bran cond sub pod time code
1             package Pfacter;
2            
3             our $VERSION = '1.14';
4            
5             sub modulelist {
6 0     0 0   my $self = shift;
7 0           my $kernel = shift;
8            
9 0           my @modules = qw(
10            
11             architecture
12             disk
13             domain
14             filesystems
15             fqdn
16             hardwaremanufacturer
17             hardwaremodel
18             hardwareplatform
19             hardwareproduct
20             hostname
21             ipaddress
22             kernel
23             kernelrelease
24             kernelversion
25             localtime
26             macaddress
27             memory
28             memorytotal
29             operatingsystem
30             processor
31             processorcount
32             productid
33             serialnumber
34             swap
35             uniqueid
36            
37             );
38            
39             # Kernel-specific
40 0           for ( $kernel ) {
41 0 0         /Linux/ && do {
42 0           push @modules, qw(
43            
44             lsbdescription
45             lsbid
46             lsbrelease
47            
48             );
49             };
50             }
51            
52             # Application-specific
53 0 0         if ( -e '/var/cfengine/bin/cfagent' ) {
54 0           push @modules, qw(
55            
56             cfclasses
57             cfversion
58            
59             );
60             }
61            
62 0           return sort @modules;
63             }
64            
65             1;