use reusable I/O utils, more solid error handling for Puppet probe

[scpubgit/System-Introspector.git] / lib / System / Introspector / Nagios / CheckMkAgent.pm

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

sub gather {
    my ($self) = @_;
    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 \%plugin;
}

sub _get_check_mk_agent_output {
    return `check_mk_agent`;
}

1;

__END__

=head1 NAME

System::Introspector::Nagios::CheckMkAgent - Gather check_mk_agent output

=head1 DESCRIPTION

Parses the output of C<check_mk_agent> to gather data available to Nagios.

=head1 SEE ALSO

=over

=item L<System::Introspector>

=back

=cut