File Coverage

tfiles/service/sleeping-common

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

# vim: ft=perl
use Ubic::Service::Common;
use Ubic::Daemon qw(:all);

my $pidfile = "tfiles/sleeping-common.pid";

Ubic::Service::Common->new({
    start => sub {
        my $pid;
        start_daemon({
            function => sub { sleep 100 },
            name => 'sleeping-common',
            pidfile => $pidfile,
        });
    },
    stop => sub {
        stop_daemon($pidfile);
    },
    status => sub {
        return check_daemon($pidfile);
    },
    custom_commands => {
        '2plus2' => sub { return 4 },
        '3plus3' => sub { return 6 },
    },
});