File Coverage

tfiles/service/slow-service

Criterion	Covered	Total	%
statement	12	14	85.7
branch	2	2	100.0
condition			n/a
subroutine	5	7	71.4
pod			n/a
total	19	23	82.6

# vim: ft=perl

use parent qw(Ubic::Service::Skeleton);
use Ubic::Daemon qw(:all);

my $pidfile = 'tfiles/slow.pid';

sub new {
    return bless {} => shift;
}

sub start_impl {
    start_daemon({
        bin => 'sleep 1000',
        pidfile => $pidfile,
    });
}

sub stop_impl {
    stop_daemon($pidfile);
}

sub status_impl {
    sleep 2;
    if (check_daemon($pidfile)) {
        return 'running';
    }
    else {
        return 'not running';
    }
}

sub check_timeout {
    return 1;
}

return __PACKAGE__->new;