File Coverage

blib/lib/FusionInventory/Agent/Task/Inventory/Generic/Hostname.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	20	30	66.6

package FusionInventory::Agent::Task::Inventory::Generic::Hostname;

use English qw(-no_match_vars);

use strict;
use warnings;

use Sys::Hostname;

use FusionInventory::Agent::Tools;

sub isEnabled {
    # We use WMI for Windows because of charset issue
    return $OSNAME ne 'MSWin32';
}

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

    my $inventory = $params{inventory};

    my $hostname = hostname();
    $hostname =~ s/\..*//; # keep just the hostname

    $inventory->setHardware({NAME => $hostname});
}

1;