File Coverage

blib/lib/FusionInventory/Agent/Task/Inventory/Linux/Memory.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch	0	8	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	38	31.5

package FusionInventory::Agent::Task::Inventory::Linux::Memory;

use strict;
use warnings;

use FusionInventory::Agent::Tools;

sub isEnabled {
    my (%params) = @_;
    return 0 if $params{no_category}->{memory};
    return -r '/proc/meminfo';
}

sub doInventory {
    my (%params) = @_;

    my $inventory = $params{inventory};
    my $logger    = $params{logger};

    my $handle = getFileHandle(file => '/proc/meminfo', logger => $logger);
    return unless $handle;

    my $memorySize;
    my $swapSize;

    while (my $line = <$handle>) {
        $memorySize = $1 if $line =~ /^MemTotal:\s*(\S+)/;
        $swapSize = $1 if $line =~ /^SwapTotal:\s*(\S+)/;
    }
    close $handle;

    $inventory->setHardware({
        MEMORY => int($memorySize/ 1024),
        SWAP   => int($swapSize / 1024),
    });
}

1;