File Coverage

blib/lib/Dancer/Plugin/Apache/Solr.pm

Criterion	Covered	Total	%
statement	28	32	87.5
branch	9	16	56.2
condition	1	2	50.0
subroutine	6	6	100.0
pod			n/a
total	44	56	78.5

package Dancer::Plugin::Apache::Solr;

our $VERSION = '0.001'; # VERSION

use strict;
use warnings;
use utf8;
use Dancer::Plugin;
use Apache::Solr;

my $servers = {};

sub solr {
  my ($self, $name) = plugin_args(@_);
  my $cfg = plugin_setting;

  if (not defined $name) {
    if (keys %$cfg == 1) {
      ($name) = keys %$cfg;
    } elsif (keys %$cfg) {
      $name = "default";
    } else {
      die "No Solr servers are configured";
    }
  }

  return $servers->{$name} if $servers->{$name};

  my $options = $cfg->{$name} or die "The server $name is not configured";

  if ( my $alias = $options->{alias} ) {
    $options = $cfg->{$alias}
      or die "The server alias $alias does not exist in the config";
    return $servers->{$alias} if $servers->{$alias};
  }

  my $server_info =
    $options->{server_info}
    //
    {
      map { $_, $options->{$_} } qw(
        autocommit
        core
        format
        server
        server_version
      )
    }
  ;

  my $server;

  $server = Apache::Solr->new(%$server_info);

  return $servers->{$name} = $server;
};

register solr => \&solr;

register_plugin for_versions => [ 1, 2 ];

# ABSTRACT: Apache::Solr interface for Dancer applications


1;

__END__