File Coverage

lib/Rex/Inventory/DMIDecode/SystemInformation.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition 1 3 33.3
subroutine 5 5 100.0
pod 0 1 0.0
total 22 25 88.0


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Inventory::DMIDecode::SystemInformation;
6              
7 39     39   537 use v5.12.5;
  39         136  
8 39     39   253 use warnings;
  39         97  
  39         1723  
9              
10             our $VERSION = '1.14.2.3'; # TRIAL VERSION
11              
12 39     39   297 use Rex::Inventory::DMIDecode::Section;
  39         95  
  39         1981  
13 39     39   261 use base qw(Rex::Inventory::DMIDecode::Section);
  39         95  
  39         7566  
14              
15             __PACKAGE__->section("System Information");
16              
17             __PACKAGE__->has(
18             [
19             'Manufacturer', 'Product Name', 'UUID', 'SKU Number',
20             'Family', 'Version', 'Serial Number',
21             ]
22             );
23              
24             sub new {
25 54     54 0 586 my $that = shift;
26 54   33     690 my $proto = ref($that) || $that;
27 54         1324 my $self = $that->SUPER::new(@_);
28              
29 54         202 bless( $self, $proto );
30              
31 54         598 return $self;
32             }
33              
34             1;