# 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;