/usr/local/CPAN/Nagios-Interface/Nagios/Interface/IgnorableLogMessage.pm

• package Nagios::Interface::IgnorableLogMessage
  • log_info_order
  • as_string
  • match
• EOF

package Nagios::Interface::IgnorableLogMessage;
use Moose;
with 'Nagios::Interface::LogMessage', 'Nagios::Interface::IgnorableMessage';

has '+host' =>
	required => 0;

has 'message' =>
	is => "ro",
	required => 1;

sub log_info_order {
	qw( message );
}

sub as_string {
	my $self = shift;
	"(ignorable) ".$self->message;
}

sub match {
	my $self = shift;
	my $other = shift;
	$other->can("message") and
		$self->message eq $other->message;
}