Apache-Solr

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "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

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Apache-Solr
no_index:
  directory:
    - t
    - inc
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

use ExtUtils::MakeMaker;

WriteMakefile
  ( NAME        => 'Apache::Solr'
  , VERSION     => '1.11'
  , PREREQ_PM   =>
     { 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);

	$self->{ASJ_json} = $args->{json} || JSON->new->utf8;

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

=over 2

=item core => L<Apache::Solr|Apache::Solr> object

=item endpoint => URI

=item params => ARRAY|HASH

The parameters used for the query.  [1.11] not required 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

All errors collected by this object into one string.

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

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