#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
package
Rex::Inventory::DMIDecode::CPU;
use
v5.12.5;
use
warnings;
our
$VERSION
=
'1.16.0'
;
# VERSION
__PACKAGE__->section(
"Processor Information"
);
__PACKAGE__->
has
(
[
'Max Speed'
,
'Serial Number'
,
'Family'
,
'Core Enabled'
,
'Version'
,
'Status'
,
'Upgrade'
,
'Thread Count'
,
],
1
);
# is_array 1
sub
new {
my
$that
=
shift
;
my
$proto
=
ref
(
$that
) ||
$that
;
my
$self
=
$that
->SUPER::new(
@_
);
bless
(
$self
,
$proto
);
return
$self
;
}
sub
num_cores {
my
(
$self
) =
@_
;
return
$self
->get_core_enabled;
}
sub
get_socket_type {
my
(
$self
) =
@_
;
return
$self
->get_upgrade;
}
1;