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