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

• package Nagios::Interface::DowntimeAlert
• EOF

package Nagios::Interface::DowntimeAlert;
use Moose::Role;
use Moose::Util::TypeConstraints;

subtype 'Nagios::DowntimeStarted'
	=> as 'Bool';
coerce 'Nagios::DowntimeStarted'
	=> from 'Str'
	=> via { $_ eq "STARTED" ? 1 : 0 };

has 'started' =>
	isa => 'Nagios::DowntimeStarted',
	is => 'ro',
	required => 1,
	coerce => 1;

1;