File Coverage

blib/lib/System/Introspector/Probe/Nagios/CheckMkAgent.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	3	4	75.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	25	29	86.2

package System::Introspector::Probe::Nagios::CheckMkAgent;
use Moo;

use System::Introspector::Util qw(
    lines_from_command
    transform_exceptions
);

sub gather {
    my ($self) = @_;
    return transform_exceptions {
        my @lines = $self->_get_check_mk_agent_output;
        chomp @lines;
        my %plugin;
        my $current;
        for my $line (@lines) {
            if ($line =~ m{^<<<(.+)>>>$}) {
                $plugin{ $1 } = $current = [];
                next;
            }
            next unless $current;
            push @$current, $line;
        }
        return { nagios_check_mk_agent => \%plugin };
    };
}

sub _get_check_mk_agent_output {
    return lines_from_command ['check_mk_agent'];
}

1;

__END__