File Coverage

lib/Ubic/Multiservice/Simple.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	2	2	100.0
condition	2	3	66.6
subroutine	10	11	90.9
pod	5	5	100.0
total	48	51	94.1

package Ubic::Multiservice::Simple;
$Ubic::Multiservice::Simple::VERSION = '1.58_01'; # TRIAL
use strict;
use warnings;

# ABSTRACT: simplest multiservice, configured in constructor


use Params::Validate qw(:all);
use Scalar::Util qw(blessed);
use parent qw(Ubic::Multiservice);

sub new {
    my $class = shift;
    my ($params) = validate_pos(@_, {
        type => HASHREF,
        callbacks => {
            'values are services' => sub {
                for (values %{shift()}) {
                    return unless blessed($_) and $_->isa('Ubic::Service')
                }
                return 1;
            },
        }
    });
    return bless { services => $params } => $class;
}

sub has_simple_service($$) {
    my ($self, $name) = @_;
    return exists $self->{services}{$name};
}

sub simple_service($$) {
    my ($self, $name) = @_;
    return $self->{services}{$name};
}

sub service_names($) {
    my $self = shift;
    return keys %{ $self->{services} };
}

sub multiop {
    return 'allowed'; # simple multiservices are usually simple enough to allow multiservice-wide actions by default
}


1;

__END__