File Coverage

tfiles/service/fake-http-service

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

# vim: ft=perl

use strict;
use warnings;

use Ubic::Service::Common;
use Storable;

my $file = 'tfiles/fake-http-service.status';
return Ubic::Service::Common->new({
    start => sub {
        store { status => 'running' } => $file;
    },
    stop => sub {
        store { status => 'not running' } => $file;
    },
    status => sub {
        return unless -e $file;
        return retrieve($file)->{status};
    },
    port => 12347,
});