File Coverage

lib/Rex/Inventory/SMBios/MemoryArray.pm
Criterion Covered Total %
statement 11 16 68.7
branch n/a
condition 0 3 0.0
subroutine 4 5 80.0
pod 0 1 0.0
total 15 25 60.0


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Inventory::SMBios::MemoryArray;
6              
7 38     38   508 use v5.12.5;
  38         154  
8 38     38   221 use warnings;
  38         78  
  38         1686  
9              
10             our $VERSION = '1.14.2.2'; # TRIAL VERSION
11              
12 38     38   267 use Rex::Inventory::SMBios::Section;
  38         92  
  38         2133  
13 38     38   273 use base qw(Rex::Inventory::SMBios::Section);
  38         88  
  38         6861  
14              
15             __PACKAGE__->section("physical memory array");
16              
17             __PACKAGE__->has(
18             [
19             { key => 'Number Of Devices', from => "Number of Slots/Sockets" },
20             { key => 'Error Correction Type', from => "ECC" },
21             { key => 'Maximum Capacity', from => "Max Capacity" },
22             'Location',
23             ],
24             1
25             );
26              
27             sub new {
28 0     0 0   my $that = shift;
29 0   0       my $proto = ref($that) || $that;
30 0           my $self = $that->SUPER::new(@_);
31              
32 0           bless( $self, $proto );
33              
34 0           return $self;
35             }
36              
37             1;