[Catalyst-commits] r7420 - in trunk/Catalyst-Model-Search: .
lib/Catalyst/Model lib/Catalyst/Model/Search
lib/Catalyst/Model/Search/Plucene t t/lib/TestApp/C
marcus at dev.catalyst.perl.org
marcus at dev.catalyst.perl.org
Mon Jan 28 22:11:40 GMT 2008
Author: marcus
Date: 2008-01-28 22:11:39 +0000 (Mon, 28 Jan 2008)
New Revision: 7420
Modified:
trunk/Catalyst-Model-Search/Changes
trunk/Catalyst-Model-Search/MANIFEST
trunk/Catalyst-Model-Search/META.yml
trunk/Catalyst-Model-Search/Makefile.PL
trunk/Catalyst-Model-Search/README
trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search.pm
trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Item.pm
trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/LuceneWebService.pm
trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene.pm
trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene/Simple.pm
trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Results.pm
trunk/Catalyst-Model-Search/t/06lucene_ws.t
trunk/Catalyst-Model-Search/t/lib/TestApp/C/Lucene_WS.pm
Log:
Latest CPAN releases
Modified: trunk/Catalyst-Model-Search/Changes
===================================================================
--- trunk/Catalyst-Model-Search/Changes 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/Changes 2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,4 +1,12 @@
Revision history for Perl extension Catalyst::Model::Search
-0.01 16. 2007-09-16 19:24:34
+0.03 2007-11-19 20:47:00
+ - Fix test failure
+
+0.02 2007-09-19 23:50:00
+ - Skip lucene-ws tests by default.
+ - Fix README
+
+
+0.01 2007-09-16 19:24:34
- initial release
Modified: trunk/Catalyst-Model-Search/MANIFEST
===================================================================
--- trunk/Catalyst-Model-Search/MANIFEST 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/MANIFEST 2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,8 +1,21 @@
-Build.PL
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
+inc/Module/Install/WriteAll.pm
lib/Catalyst/Model/Search.pm
+lib/Catalyst/Model/Search/Item.pm
+lib/Catalyst/Model/Search/LuceneWebService.pm
lib/Catalyst/Model/Search/Plucene.pm
lib/Catalyst/Model/Search/Plucene/Simple.pm
+lib/Catalyst/Model/Search/Results.pm
Makefile.PL
MANIFEST This list of files
META.yml
@@ -12,6 +25,9 @@
t/03podcoverage.t
t/04plucene.t
t/05plucene_snowball.t
+t/06lucene_ws.t
t/lib/TestApp.pm
+t/lib/TestApp/C/Lucene_WS.pm
t/lib/TestApp/C/Plucene.pm
+t/lib/TestApp/M/Search/LuceneWebService.pm
t/lib/TestApp/M/Search/Plucene.pm
Modified: trunk/Catalyst-Model-Search/META.yml
===================================================================
--- trunk/Catalyst-Model-Search/META.yml 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/META.yml 2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,9 +1,8 @@
---
abstract: ~
-author: Andy Grundman, <andy at hybridized.org>
distribution_type: module
generated_by: Module::Install version 0.67
-license: perl
+license: unknown
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
version: 1.3
@@ -15,4 +14,4 @@
requires:
Catalyst: 5.62
Class::Std: 0
-version: 0.01
+version: 0.03
Modified: trunk/Catalyst-Model-Search/Makefile.PL
===================================================================
--- trunk/Catalyst-Model-Search/Makefile.PL 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/Makefile.PL 2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,7 +1,7 @@
use inc::Module::Install;
name('Catalyst-Model-Search');
-all_from('lib/Catalyst/Model/Search/Plucene.pm');
+all_from('lib/Catalyst/Model/Search.pm');
include('ExtUtils::AutoInstall');
Modified: trunk/Catalyst-Model-Search/README
===================================================================
--- trunk/Catalyst-Model-Search/README 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/README 2008-01-28 22:11:39 UTC (rev 7420)
@@ -0,0 +1,3 @@
+Execute this to read the documentation:
+
+perldoc Catalyst::Model::Search::Plucene
Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Item.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Item.pm 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Item.pm 2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,6 +1,5 @@
package Catalyst::Model::Search::Item;
-our $VERSION = '0.01';
use strict;
use warnings;
Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/LuceneWebService.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/LuceneWebService.pm 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/LuceneWebService.pm 2008-01-28 22:11:39 UTC (rev 7420)
@@ -6,8 +6,6 @@
use base qw/Catalyst::Model::Search/;
use Net::LuceneWS;
-our $VERSION = '0.01';
-
__PACKAGE__->mk_classdata( '_lucene' );
sub new {
Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene/Simple.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene/Simple.pm 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene/Simple.pm 2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,7 +1,5 @@
package Catalyst::Model::Search::Plucene::Simple;
-our $VERSION = '0.01';
-
use strict;
use warnings;
Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene.pm 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Plucene.pm 2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,6 +1,6 @@
package Catalyst::Model::Search::Plucene;
-our $VERSION = '0.01';
+our $VERSION = '0.03';
use strict;
use warnings;
Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Results.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Results.pm 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search/Results.pm 2008-01-28 22:11:39 UTC (rev 7420)
@@ -1,7 +1,5 @@
package Catalyst::Model::Search::Results;
-our $VERSION = '0.01';
-
use strict;
use warnings;
use Class::Std;
Modified: trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search.pm
===================================================================
--- trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search.pm 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/lib/Catalyst/Model/Search.pm 2008-01-28 22:11:39 UTC (rev 7420)
@@ -4,7 +4,7 @@
use NEXT;
use base qw/Catalyst::Base/;
-our $VERSION = '0.01';
+our $VERSION='0.03';
sub new {
my ( $self, $c ) = @_;
Modified: trunk/Catalyst-Model-Search/t/06lucene_ws.t
===================================================================
--- trunk/Catalyst-Model-Search/t/06lucene_ws.t 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/t/06lucene_ws.t 2008-01-28 22:11:39 UTC (rev 7420)
@@ -9,10 +9,11 @@
use File::Path;
BEGIN {
+
eval "use Net::LuceneWS";
plan $@
- ? ( skip_all => 'needs Net::LuceneWS for testing' )
- : ( tests => 24 )
+ ? ( skip_all => 'needs Net::LuceneWS for testing' )
+ : ( $ENV{LOCAL_LUCENE_SERVER } ? ( tests => 24 ) : (skip_all => "Requires a local lucene server. set LOCAL_LUCENE_SERVER to force." ))
}
use Catalyst::Test 'TestApp';
Modified: trunk/Catalyst-Model-Search/t/lib/TestApp/C/Lucene_WS.pm
===================================================================
--- trunk/Catalyst-Model-Search/t/lib/TestApp/C/Lucene_WS.pm 2008-01-28 15:16:03 UTC (rev 7419)
+++ trunk/Catalyst-Model-Search/t/lib/TestApp/C/Lucene_WS.pm 2008-01-28 22:11:39 UTC (rev 7420)
@@ -47,6 +47,7 @@
my ( $self, $c ) = @_;
my $results = $lucene->query( $c->req->params->{q} );
+ return unless $results;
my @items = $results->get_items;
my $output;
foreach my $item ( @items ) {
More information about the Catalyst-commits
mailing list