package Proc::Safetynet::ProgramStatus;
use strict;
use warnings;
use Carp;
use Moose;
has 'is_running' => (
is => 'rw',
isa => 'Bool',
required => 1,
default => 0,
);
has 'started_since' => (
is => 'rw',
isa => 'Int',
required => 0,
);
has 'stopped_since' => (
is => 'rw',
isa => 'Int',
required => 0,
);
has 'pid' => (
is => 'rw',
isa => 'Int',
required => 0,
);
sub TO_JSON {
my $self = shift;
my $o = { };
foreach my $k (keys %$self) {
next if ($k =~ /^_/);
$o->{$k} = $self->{$k};
}
return $o;
}
no Moose;
1;
__END__