File Coverage

lib/Rex/Inventory/SMBios/CPU.pm
Criterion Covered Total %
statement 14 25 56.0
branch n/a
condition 0 3 0.0
subroutine 5 8 62.5
pod 0 3 0.0
total 19 39 48.7


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Inventory::SMBios::CPU;
6              
7 38     38   943 use v5.12.5;
  38         172  
8 38     38   232 use warnings;
  38         93  
  38         1770  
9              
10             our $VERSION = '1.14.2.2'; # TRIAL VERSION
11              
12 38     38   272 use Rex::Inventory::SMBios::Section;
  38         77  
  38         1819  
13 38     38   277 use Rex::Logger;
  38         85  
  38         258  
14 38     38   1389 use base qw(Rex::Inventory::SMBios::Section);
  38         98  
  38         10355  
15              
16             __PACKAGE__->section("processor");
17              
18             __PACKAGE__->has(
19             [
20             { key => 'Max Speed', from => "Maximum Speed" },
21             'Family',
22             { key => 'Status', from => "Processor Status" },
23             ],
24             1
25             ); # is_array 1
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             sub num_cores {
38 0     0 0   my ($self) = @_;
39 0           Rex::Logger::debug("num_cores not supported");
40 0           return -1;
41             }
42              
43             sub get_socket_type {
44 0     0 0   my ($self) = @_;
45 0           Rex::Logger::debug("get_socket_type not supported");
46 0           return;
47             }
48              
49             1;