with qw(MooseX::Daemonize);
has filename => ( isa => 'Str', is => 'ro' );
-
- after start => sub {
+
+ after start => sub {
my $self = shift;
if ($self->is_daemon) {
$self->create_file( $self->filename );
if (DEBUG) {
diag `ps $pid`;
- diag "Status is: " . $app->status_message;
+ diag "Status is: " . $app->status_message;
}
ok( -e $app->filename, "file exists" );
if (DEBUG) {
diag `ps $pid`;
- diag "Status is: " . $app->status_message;
+ diag "Status is: " . $app->status_message;
}
ok( $app->stop, '... app stopped' );
if (DEBUG) {
diag `ps $pid`;
- diag "Status is: " . $app->status_message;
+ diag "Status is: " . $app->status_message;
}
ok( not(-e $app->pidfile->file) , '... pidfile gone' );