Apache-Solr

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "develop" : {
         "requires" : {
            "OODoc" : "3.00"
         }
      },
      "runtime" : {
         "recommends" : {},
         "requires" : {
            "Data::Dumper" : "0",
            "Encode" : "0",
            "HTTP::Request" : "0",
            "JSON" : "0",
            "LWP::UserAgent" : "0",
            "Log::Report" : "0",
            "MIME::Types" : "0",
            "Scalar::Util" : "0",
            "Test::More" : "0",
            "Time::HiRes" : "0",
            "URI" : "0",

META.yml  view on Meta::CPAN

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Apache-Solr
no_index:
  directory:
    - t
    - inc
recommends: {}
requires:
  Data::Dumper: '0'
  Encode: '0'
  HTTP::Request: '0'
  JSON: '0'
  LWP::UserAgent: '0'
  Log::Report: '0'
  MIME::Types: '0'
  Scalar::Util: '0'
  Test::More: '0'
  Time::HiRes: '0'
  URI: '0'

Makefile.PL  view on Meta::CPAN

	},

	generate => [ {
		# Add real pod to the releases
		format         => 'pod3',
		podtail        => undef,
	}, ],
);

my %requires = (
	'Data::Dumper'        => 0,
	'Encode'              => 0,
	'HTTP::Request'       => 0,
	'JSON'                => 0,
	'Log::Report'         => 0,
	'LWP::UserAgent'      => 0,
	'Scalar::Util'        => 0,
	'Test::More'          => 0,
	'Time::HiRes'         => 0,
	'URI'                 => 0,
	'XML::LibXML::Simple' => 0,

lib/Apache/Solr.pod  view on Meta::CPAN

=item core => $name

=back

» example: 

  my $result = $solr->coreStatus;
  $result or die $result->errors;

  use Data::Dumper;
  print Dumper $result->decoded->{status};

=item $obj-E<gt>B<coreUnload>(%options)

Removes a core from Solr. Active requests will continue to be processed,
but no new requests will be sent to the named core. If a core is
registered under more than one name, only the given name is removed.

 -Option--Default
  core    <this core>

lib/Apache/Solr/Result.pm  view on Meta::CPAN

no warnings 'recursion';  # linked list of pages can get deep

use strict;

use Log::Report    qw/solr/;
use Time::HiRes    qw/time/;
use Scalar::Util   qw/weaken/;

use Apache::Solr::Document ();

use Data::Dumper;
$Data::Dumper::Indent    = 1;
$Data::Dumper::Quotekeys = 0;

#--------------------

use overload
	'""' => 'endpoint',
	bool => 'success';

#--------------------

sub new(@) { my $c = shift; (bless {}, $c)->init({@_}) }

lib/Apache/Solr/XML.pm  view on Meta::CPAN

use strict;

use Log::Report          qw/solr/;

use Apache::Solr::Result ();
use XML::LibXML::Simple  ();
use HTTP::Message        ();
use HTTP::Request        ();
use Scalar::Util         qw/blessed/;

use Data::Dumper;
$Data::Dumper::Indent    = 1;
$Data::Dumper::Quotekeys = 0;

# See the XML::LibXML::Simple manual page
my @xml_decode_config = (
	ForceArray   => [],
	ContentKey   => '_',
	KeyAttr      => [],
);

#--------------------

t/12facet.t  view on Meta::CPAN

use warnings;
use strict;

use lib 'lib';
use Apache::Solr::XML;
use Log::Report  'try';

use Test::More tests => 17;

use Data::Dumper;
$Data::Dumper::Indent    = 1;
$Data::Dumper::Quotekeys = 0;

# the server will not be called in this script.
my $server = 'http://localhost:8080/solr';
my $core   = 'my-core';

my $solr = Apache::Solr::XML->new(server => $server, core => $core);
ok(defined $solr, 'instantiated client');

sub decode_xml($)
{   my $xml  = shift;

t/20xml.t  view on Meta::CPAN

#XXX !!! DO NOT EDIT t/21json.t, because it is a symlink to t/20xml.t

use warnings;
use strict;

use lib 'lib';
use Test::More;

my $server;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Quotekeys = 0;

BEGIN {
    $server = $ENV{SOLR_TEST_SERVER}
        or plan skip_all => "no SOLR_TEST_SERVER provided";

	$server .= '/markov';
}

require_ok('Apache::Solr');
require_ok('Apache::Solr::Document');

t/21json.t  view on Meta::CPAN

#XXX !!! DO NOT EDIT t/21json.t, because it is a symlink to t/20xml.t

use warnings;
use strict;

use lib 'lib';
use Test::More;

my $server;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Quotekeys = 0;

BEGIN {
    $server = $ENV{SOLR_TEST_SERVER}
        or plan skip_all => "no SOLR_TEST_SERVER provided";

	$server .= '/markov';
}

require_ok('Apache::Solr');
require_ok('Apache::Solr::Document');

t/30result.t  view on Meta::CPAN

# Try all examples from http://wiki.apache.org/solr/SearchHandler

use warnings;
use strict;

use lib 'lib';
use Apache::Solr::XML;

use Test::More tests => 5;

use Data::Dumper;
$Data::Dumper::Indent    = 1;
$Data::Dumper::Quotekeys = 0;

# the server will not be called in this script.
my $server = 'http://localhost:8080/solr';
my $core   = 'my-core';

my $solr = Apache::Solr::XML->new(server => $server, core => $core);
ok(defined $solr, 'instantiated client');

sub decode_xml($)
{   my $xml  = shift;

t/31sequential.t  view on Meta::CPAN

#!/usr/bin/perl

use warnings;
use strict;

use lib 'lib';
use Test::More;

my $server;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Quotekeys = 0;

BEGIN {
    $server = $ENV{SOLR_TEST_SERVER}
        or plan skip_all => "no SOLR_TEST_SERVER provided";

	$server .= '/markov';
}

my $rows_per_page = 7;
my @create_ids = 'A'..'Z';

t/32version.t  view on Meta::CPAN

#!/usr/bin/env perl

use warnings;
use strict;

use Test::More;

use lib 'lib';
use Apache::Solr::JSON;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Quotekeys = 0;

my $server;
BEGIN {
    $server = $ENV{SOLR_TEST_SERVER}
        or plan skip_all => "no SOLR_TEST_SERVER provided";
}

my $solr = Apache::Solr::JSON->new
  ( server     => $server
  , retry_max  => 3