File Coverage

tfiles/service/multi-impl

Criterion	Covered	Total	%
statement	13	25	52.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	12	41.6
pod			n/a
total	18	42	42.8

# vim:ft=perl
use strict;
use warnings;

use parent qw(Ubic::Multiservice);
use Ubic::Service::Common;

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

my $eval_id = 1;
sub simple_service {
    my ($self, $name) = @_;
    if ($name eq 'abc' or $name eq 'def') {
        return Ubic::Service::Common->new({
            start => sub { die },
            stop => sub { die },
            status => sub { die },
        });
    }
}

sub has_simple_service {
    my ($self, $name) = @_;
    return (grep { $name eq $_ } $self->service_names);
}

sub service_names {
    my ($self) = @_;
    return qw/ abc def /;
}

sub multiop {
    return 'protected';
}

__PACKAGE__->new;