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",
            "XML::LibXML::Simple" : "0"
         },

META.yml  view on Meta::CPAN

  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'
  XML::LibXML::Simple: '0'
resources:

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,
	'MIME::Types'         => 0,
);

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

	$take;
}


sub request($$;$$)
{	my ($self, $url, $result, $body, $body_ct) = @_;

	my $req;
	if($body)
	{	# request with 'form' payload
		$req       = HTTP::Request->new(
			POST => $url,
			[ Content_Type        => $body_ct
			, Content_Disposition => 'form-data; name="content"'
			],
			(ref $body eq 'SCALAR' ? $$body : $body)
		);
	}
	else
	{	# request without payload
		$req = HTTP::Request->new(GET => $url);
	}

	$result->request($req);

	my $resp;
	my $retries = $self->{AS_retry_max};
	my $wait    = $self->{AS_retry_wait};
	my $start   = time;

	while($retries--)

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

}

use base 'Apache::Solr';

use warnings;
use strict;

use Log::Report          qw/solr/;

use Apache::Solr::Result ();
use HTTP::Request        ();
use JSON                 ();
use Scalar::Util         qw/blessed/;

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

sub init($)
{	my ($self, $args) = @_;
	$args->{format}   ||= 'JSON';
	$self->SUPER::init($args);

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

=over 2

=item core => Apache::Solr object

=item endpoint => URI

=item params => \%params|\@pairs

The parameters used for the query.  [1.11] not a required option anymore.

=item request => HTTP::Request object

=item response => HTTP::Response object

=item sequential => BOOLEAN

[1.06] By setting this, you indicate that you will process the documents
in (numeric) sequential order; that you have no intention to go back to
a lower number.  This implies that those cached results can be cleaned-up
in the client early, reducing memory consumption.

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

=item $obj-E<gt>B<httpError>()

Z<>

=item $obj-E<gt>B<params>()

List of (expanded) parameters used to call the solr server.

=item $obj-E<gt>B<request>( [$request] )

Set/get the HTTP::Request object used in this query.

=item $obj-E<gt>B<response>( [$response] )

Set/get the HTTP::Response object received from this query action.

=item $obj-E<gt>B<sequential>()

[1.06] Shows whether the results are only read in numeric order.

=item $obj-E<gt>B<serverError>()

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

use base 'Apache::Solr';

use warnings;
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   => '_',