view release on metacpan or  search on metacpan

lib/Dancer2/Plugin/JobScheduler/Client/TheSchwartz.pm  view on Meta::CPAN

    if ( !$self->config->{'dbh_callback'} ) {
        my $e = 'Invalid config. Must define dbh_callback.';
        $log->errorf($e);
        croak $e;
    }
    if ( $self->config->{'databases'} ) {
        my $databases = $self->config->{'databases'};
        foreach my $key ( keys %{$databases} ) {
            my $database = $databases->{$key};
            if ( $database->{'dbh_callback'} ) {
                my $e = q{Invalid config. } . q{databases->%s has item dbh_callback; database specific callbacks not supported};
                $log->errorf( $e, $key );
                croak sprintf $e, $key;
            }
        }
    }
    else {
        my $e = 'Invalid config. Must define databases.';
        $log->errorf($e);
        croak $e;
    }