File Coverage

blib/lib/System/Introspector/Probe/Host.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	28	29	96.5

package System::Introspector::Probe::Host;
use Moo;

use System::Introspector::Util qw(
    handle_from_command
    output_from_command
    output_from_file
    transform_exceptions
);

has hostname_file => (is => 'ro', default => sub {'/etc/hostname' });

sub gather {
    my ($self) = @_;
    return transform_exceptions {
        return {
            hostname => $self->_gather_hostname,
            uname    => $self->_gather_uname_info,
        };
    };
}

my @UnameFields = qw(
    kernel_name
    kernel_release
    kernel_version
    nodename
    machine
    processor
    hardware_platform
    operating_system
);

sub _gather_uname_info {
    my ($self) = @_;
    my %uname;
    for my $field (@UnameFields) {
        (my $option = $field) =~ s{_}{-}g;
        my $value = output_from_command [uname => "--$option"];
        chomp $value;
        $uname{ $field } = $value;
    }
    return \%uname;
}

sub _gather_hostname {
    my ($self) = @_;
    my $hostname = output_from_file $self->hostname_file;
    chomp $hostname;
    $hostname =~ s{(?:^\s+|\s+$)}{}g;
    return $hostname;
}

1;

__END__