r29650 - in /branches/upstream/libwebservice-solr-perl/current: ./ inc/Module/ inc/Module/Install/ lib/WebService/ lib/WebService/Solr/ t/request/
bricas-guest at users.alioth.debian.org
bricas-guest at users.alioth.debian.org
Thu Jan 15 15:04:32 UTC 2009
Author: bricas-guest
Date: Thu Jan 15 15:04:25 2009
New Revision: 29650
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29650
Log:
[svn-upgrade] Integrating new upstream version, libwebservice-solr-perl (0.03)
Removed:
branches/upstream/libwebservice-solr-perl/current/inc/Module/AutoInstall.pm
branches/upstream/libwebservice-solr-perl/current/inc/Module/Install/AutoInstall.pm
branches/upstream/libwebservice-solr-perl/current/inc/Module/Install/Include.pm
Modified:
branches/upstream/libwebservice-solr-perl/current/Changes
branches/upstream/libwebservice-solr-perl/current/MANIFEST
branches/upstream/libwebservice-solr-perl/current/META.yml
branches/upstream/libwebservice-solr-perl/current/Makefile.PL
branches/upstream/libwebservice-solr-perl/current/README
branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr.pm
branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Document.pm
branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Response.pm
branches/upstream/libwebservice-solr-perl/current/t/request/add.t
branches/upstream/libwebservice-solr-perl/current/t/request/commit.t
branches/upstream/libwebservice-solr-perl/current/t/request/delete.t
branches/upstream/libwebservice-solr-perl/current/t/request/optimize.t
Modified: branches/upstream/libwebservice-solr-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/Changes?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/Changes (original)
+++ branches/upstream/libwebservice-solr-perl/current/Changes Thu Jan 15 15:04:25 2009
@@ -1,4 +1,11 @@
Revision history for Perl extension WebService::Solr.
+
+0.03 Thu Jan 15 2009
+ - fix typo (Thanks cog)
+ - pod fixes
+ - try to work around old LWP versions when setting HTTP headers
+ - require URI >= 1.28
+ - require XML::Generator >= 0.94
0.02 Thu Oct 09 2008
- fix pager creation, missing prereq
Modified: branches/upstream/libwebservice-solr-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/MANIFEST?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/MANIFEST (original)
+++ branches/upstream/libwebservice-solr-perl/current/MANIFEST Thu Jan 15 15:04:25 2009
@@ -1,11 +1,8 @@
Changes
-inc/Module/AutoInstall.pm
inc/Module/Install.pm
-inc/Module/Install/AutoInstall.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
-inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Win32.pm
Modified: branches/upstream/libwebservice-solr-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/META.yml?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/META.yml (original)
+++ branches/upstream/libwebservice-solr-perl/current/META.yml Thu Jan 15 15:04:25 2009
@@ -22,9 +22,9 @@
JSON::XS: 0
LWP::UserAgent: 0
Moose: 0
- URI: 0
- XML::Generator: 0
+ URI: 1.28
+ XML::Generator: 0.94
perl: 5.8.0
resources:
license: http://dev.perl.org/licenses/
-version: 0.02
+version: 0.03
Modified: branches/upstream/libwebservice-solr-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/Makefile.PL?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/Makefile.PL (original)
+++ branches/upstream/libwebservice-solr-perl/current/Makefile.PL Thu Jan 15 15:04:25 2009
@@ -10,9 +10,9 @@
all_from 'lib/WebService/Solr.pm';
requires 'LWP::UserAgent';
-requires 'URI';
+requires 'URI' => '1.28';
requires 'Data::Page';
-requires 'XML::Generator';
+requires 'XML::Generator' => '0.94';
requires 'JSON::XS';
requires 'Moose';
@@ -22,5 +22,4 @@
tests_recursive;
-auto_install;
WriteAll;
Modified: branches/upstream/libwebservice-solr-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/README?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/README (original)
+++ branches/upstream/libwebservice-solr-perl/current/README Thu Jan 15 15:04:25 2009
@@ -4,20 +4,22 @@
SYNOPSIS
my $solr = WebService::Solr->new;
$solr->add( @docs );
- $solr->commit;
-
- my $response = $solr->search( $query );
+
+ my $response = $solr->search( $query );
for my $doc ( $response->docs ) {
print $doc->value_for( $id );
}
DESCRIPTION
ACCESSORS
- * url - the webservice base url
- * agent - a user agent object
- * autocommit - a boolean value for automatic commit() after
- add/update/delete
- * default_params - a hashref of parameters to send on every request
+ * url - the webservice base url
+
+ * agent - a user agent object
+
+ * autocommit - a boolean value for automatic commit() after
+ add/update/delete
+
+ * default_params - a hashref of parameters to send on every request
METHODS
new( $url, \%options )
@@ -31,10 +33,10 @@
add( $doc|\@docs, \%options )
Adds a number of documents to the index. Returns true on success, false
otherwise. A document can be a WebService::Solr::Document object or a
- structure that can be passed to "WebService::Solr::Document-"new>.
+ structure that can be passed to "WebService::Solr::Document->new".
Available options as of Solr 1.3 are:
- * allowDups (default: false) - Allow duplicate entries
+ * allowDups (default: false) - Allow duplicate entries
update( $doc|\@docs, \%options )
Alias for "add()".
@@ -59,12 +61,15 @@
my $solr = WebService::Solr->new( undef, { autocommit => 1 } );
$solr->add( $doc ); # will not automatically call commit()
+ $solr->commit;
Options as of Solr 1.3 include:
- * maxSegments (default: 1)
- * waitFlush (default: true)
- * waitSearcher (default: true)
+ * maxSegments (default: 1)
+
+ * waitFlush (default: true)
+
+ * waitSearcher (default: true)
optimize( \%options )
Sends an optimize command. Returns true on success, false otherwise.
@@ -75,8 +80,9 @@
Sends a basic ping request. Returns true on success, false otherwise.
SEE ALSO
- * http://lucene.apache.org/solr/
- * Solr - an alternate library
+ * http://lucene.apache.org/solr/
+
+ * Solr - an alternate library
AUTHORS
Brian Cassidy <bricas at cpan.org>
@@ -84,7 +90,7 @@
Kirk Beers <kirk.beers at nald.ca>
COPYRIGHT AND LICENSE
- Copyright 2008 National Adult Literacy Database
+ Copyright 2008-2009 National Adult Literacy Database
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr.pm?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr.pm (original)
+++ branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr.pm Thu Jan 15 15:04:25 2009
@@ -6,6 +6,7 @@
use LWP::UserAgent;
use WebService::Solr::Response;
use HTTP::Request;
+use HTTP::Headers;
use XML::Generator;
has 'url' => (
@@ -26,7 +27,7 @@
default => sub { { wt => 'json' } }
);
-our $VERSION = '0.02';
+our $VERSION = '0.03';
sub BUILDARGS {
my ( $self, $url, $options ) = @_;
@@ -136,7 +137,7 @@
my $url = $self->_gen_url( 'update', $params );
my $req = HTTP::Request->new(
POST => $url,
- [ Content_Type => 'text/xml; charset=utf-8' ],
+ HTTP::Headers->new( Content_Type => 'text/xml; charset=utf-8' ),
'<?xml version="1.0" encoding="UTF-8"?>' . $xml
);
@@ -160,8 +161,7 @@
my $solr = WebService::Solr->new;
$solr->add( @docs );
- $solr->commit;
-
+
my $response = $solr->search( $query );
for my $doc ( $response->docs ) {
print $doc->value_for( $id );
@@ -201,7 +201,7 @@
Adds a number of documents to the index. Returns true on success, false
otherwise. A document can be a L<WebService::Solr::Document> object or a
-structure that can be passed to C<WebService::Solr::Document->new>. Available
+structure that can be passed to C<WebService::Solr::Document-E<gt>new>. Available
options as of Solr 1.3 are:
=over 4
@@ -238,6 +238,7 @@
my $solr = WebService::Solr->new( undef, { autocommit => 1 } );
$solr->add( $doc ); # will not automatically call commit()
+ $solr->commit;
Options as of Solr 1.3 include:
@@ -279,7 +280,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2008 National Adult Literacy Database
+Copyright 2008-2009 National Adult Literacy Database
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Document.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Document.pm?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Document.pm (original)
+++ branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Document.pm Thu Jan 15 15:04:25 2009
@@ -107,7 +107,7 @@
Constructs a new document object given C<@fields>. A field can be a
L<WebService::Solr::Field> object, or a structure accepted by
-C<WebService::Solr::Field->new>.
+C<WebService::Solr::Field-E<gt>new>.
=head2 BUILDARGS( @args )
Modified: branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Response.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Response.pm?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Response.pm (original)
+++ branches/upstream/libwebservice-solr-perl/current/lib/WebService/Solr/Response.pm Thu Jan 15 15:04:25 2009
@@ -92,7 +92,7 @@
=head1 DESCRIPTION
-This class encapsulates reponses from the Solr Web Service. Typically it is
+This class encapsulates responses from the Solr Web Service. Typically it is
used when documents are returned from a search query, though it will accept
all responses from the service.
@@ -127,7 +127,7 @@
=head2 solr_status( )
-Looks for the status value in the respons data.
+Looks for the status value in the response data.
=head2 ok( )
Modified: branches/upstream/libwebservice-solr-perl/current/t/request/add.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/t/request/add.t?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/t/request/add.t (original)
+++ branches/upstream/libwebservice-solr-perl/current/t/request/add.t Thu Jan 15 15:04:25 2009
@@ -5,6 +5,7 @@
use Test::Mock::LWP::UserAgent;
use XML::Simple;
+use HTTP::Headers;
$Mock_ua->mock(
request => sub {
@@ -29,8 +30,8 @@
is( $_[ 2 ]->path, '/solr/update', 'add() path' );
is_deeply( { $_[ 2 ]->query_form }, { wt => 'json' }, 'add() params' );
is_deeply(
- $_[ 3 ],
- [ 'Content_Type', 'text/xml; charset=utf-8' ],
+ $_[ 3 ]->header( 'Content_Type' ),
+ 'text/xml; charset=utf-8',
'add() headers'
);
my $struct = XMLin( $_[ 4 ], KeepRoot => 1 );
Modified: branches/upstream/libwebservice-solr-perl/current/t/request/commit.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/t/request/commit.t?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/t/request/commit.t (original)
+++ branches/upstream/libwebservice-solr-perl/current/t/request/commit.t Thu Jan 15 15:04:25 2009
@@ -5,6 +5,7 @@
use Test::Mock::LWP::UserAgent;
use XML::Simple;
+use HTTP::Headers;
$Mock_ua->mock(
request => sub {
@@ -33,9 +34,9 @@
sub _test_req {
is( $_[ 2 ]->path, '/solr/update', 'commit() path' );
is_deeply( { $_[ 2 ]->query_form }, { wt => 'json' }, 'commit() params' );
- is_deeply(
- $_[ 3 ],
- [ 'Content_Type', 'text/xml; charset=utf-8' ],
+ is(
+ $_[ 3 ]->header( 'Content_Type' ),
+ 'text/xml; charset=utf-8',
'commit() headers'
);
my $struct = XMLin( $_[ 4 ], KeepRoot => 1 );
Modified: branches/upstream/libwebservice-solr-perl/current/t/request/delete.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/t/request/delete.t?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/t/request/delete.t (original)
+++ branches/upstream/libwebservice-solr-perl/current/t/request/delete.t Thu Jan 15 15:04:25 2009
@@ -5,6 +5,7 @@
use Test::Mock::LWP::UserAgent;
use XML::Simple;
+use HTTP::Headers;
$Mock_ua->mock(
request => sub {
@@ -32,9 +33,9 @@
sub _test_req {
is( $_[ 2 ]->path, '/solr/update', 'delete() path' );
is_deeply( { $_[ 2 ]->query_form }, { wt => 'json' }, 'delete() params' );
- is_deeply(
- $_[ 3 ],
- [ 'Content_Type', 'text/xml; charset=utf-8' ],
+ is(
+ $_[ 3 ]->header( 'Content_Type' ),
+ 'text/xml; charset=utf-8',
'delete() headers'
);
my $struct = XMLin( $_[ 4 ], KeepRoot => 1 );
Modified: branches/upstream/libwebservice-solr-perl/current/t/request/optimize.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwebservice-solr-perl/current/t/request/optimize.t?rev=29650&op=diff
==============================================================================
--- branches/upstream/libwebservice-solr-perl/current/t/request/optimize.t (original)
+++ branches/upstream/libwebservice-solr-perl/current/t/request/optimize.t Thu Jan 15 15:04:25 2009
@@ -5,6 +5,7 @@
use Test::Mock::LWP::UserAgent;
use XML::Simple;
+use HTTP::Headers;
$Mock_ua->mock(
request => sub {
@@ -37,9 +38,9 @@
{ wt => 'json' },
'optimize() params'
);
- is_deeply(
- $_[ 3 ],
- [ 'Content_Type', 'text/xml; charset=utf-8' ],
+ is(
+ $_[ 3 ]->header( 'Content_Type' ),
+ 'text/xml; charset=utf-8',
'optimize() headers'
);
my $struct = XMLin( $_[ 4 ], KeepRoot => 1 );
More information about the Pkg-perl-cvs-commits
mailing list