view release on metacpan or  search on metacpan

lib/App/Standby/Group.pm  view on Meta::CPAN

    }

    return \%has_sv;;
}

# your code here ...
sub _config_values {
    my $self = shift;
    my $key = shift;

    return $self->SUPER::_config_values($key, $self->group_id());
}

sub _update_services {
    my $self = shift;
    my $contact_ref = shift;

    my $count = 0;
    foreach my $name (sort keys %{$self->services()}) {
        my $service = $self->services()->{$name};
        $self->logger()->log( message => "Service: ".$name.' starting ...', level => 'debug', );

lib/App/Standby/Service.pm  view on Meta::CPAN

    $sth->finish();

    return \@new_users;
}

sub _config_values {
    my $self = shift;
    my $key = shift;

    return $self->SUPER::_config_values($key, $self->group_id());
}

sub _config_value {
    my $self = shift;
    my $key = shift;

    my $vals = $self->_config_values($key);
    if(ref($vals) eq 'ARRAY') {
        return $vals->[0];
    } else {