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