1 package System::Introspector::Nagios::CheckMkAgent;
6 my @lines = $self->_get_check_mk_agent_output;
10 for my $line (@lines) {
11 if ($line =~ m{^<<<(.+)>>>$}) {
12 $plugin{ $1 } = $current = [];
16 push @$current, $line;
21 sub _get_check_mk_agent_output {
22 return `check_mk_agent`;
31 System::Introspector::Nagios::CheckMkAgent - Gather check_mk_agent output
35 Parses the output of C<check_mk_agent> to gather data available to Nagios.
41 =item L<System::Introspector>