Import of KARMAN/SWISH-Prog-0.69 from CPAN.

gitpan-cpan-distribution: SWISH-Prog gitpan-cpan-version: 0.69 gitpan-cpan-path: KARMAN/SWISH-Prog-0.69.tar.gz gitpan-cpan-author: KARMAN gitpan-cpan-maturity: released
gitpan · Oct 23, 2014 · 141b54e · 141b54e
1 parent 8b7db65
commit 141b54e
Show file tree

Hide file tree

Showing 33 changed files with 47 additions and 34 deletions.
diff --git a/Changes b/Changes
@@ -309,3 +309,7 @@ Revision history for Perl extension Prog.
 0.68    23 Jan 2013
         * fix failing test t/17-spider-server with 'use base' vs '@ISA'
         * force URI objects to stringify when passing in/out of cache
+
+0.69    05 Feb 2013
+        * fix documentation for SWISH::Prog::InvIndex::Meta, add data() accessor method.
+
diff --git a/META.yml b/META.yml
@@ -61,4 +61,4 @@ resources:
   homepage: http://dev.swish-e.org/wiki/perl
   license: http://dev.perl.org/licenses/
   repository: http://svn.swish-e.org/perl/SWISH-Prog/
-version: 0.68
+version: 0.69
diff --git a/MYMETA.json b/MYMETA.json
@@ -86,5 +86,5 @@
          "url" : "http://svn.swish-e.org/perl/SWISH-Prog/"
       }
    },
-   "version" : "0.68"
+   "version" : "0.69"
 }
diff --git a/MYMETA.yml b/MYMETA.yml
@@ -60,4 +60,4 @@ resources:
   homepage: http://dev.swish-e.org/wiki/perl
   license: http://dev.perl.org/licenses/
   repository: http://svn.swish-e.org/perl/SWISH-Prog/
-version: 0.68
+version: 0.69
diff --git a/lib/SWISH/Prog.pm b/lib/SWISH/Prog.pm
@@ -10,7 +10,7 @@ use SWISH::Prog::Config;
 use SWISH::Prog::InvIndex;
 use SWISH::Prog::ReplaceRules;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(qw( aggregator aggregator_opts test_mode ));
 

diff --git a/lib/SWISH/Prog/Aggregator.pm b/lib/SWISH/Prog/Aggregator.pm
@@ -9,7 +9,7 @@ use SWISH::Prog::Doc;
 use Scalar::Util qw( blessed );
 use Data::Dump qw( dump );
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(
     qw(

diff --git a/lib/SWISH/Prog/Aggregator/DBI.pm b/lib/SWISH/Prog/Aggregator/DBI.pm
@@ -11,7 +11,7 @@ use SWISH::Prog::Utils;
 __PACKAGE__->mk_accessors(
     qw( db alias_columns schema use_quotes quote_char ));
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 my $XMLer = Search::Tools::XML->new();    # included in Utils
 

diff --git a/lib/SWISH/Prog/Aggregator/FS.pm b/lib/SWISH/Prog/Aggregator/FS.pm
@@ -9,7 +9,7 @@ use File::Rules;
 use Data::Dump qw( dump );
 use SWISH::3;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 # we rely on file extensions to determine content type
 # and thus parser type. If a file has no extension,

diff --git a/lib/SWISH/Prog/Aggregator/Mail.pm b/lib/SWISH/Prog/Aggregator/Mail.pm
@@ -8,7 +8,7 @@ use Search::Tools::XML;
 use Mail::Box::Manager;
 use base qw( SWISH::Prog::Aggregator );
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 my $XMLer = Search::Tools::XML->new();
 

diff --git a/lib/SWISH/Prog/Aggregator/MailFS.pm b/lib/SWISH/Prog/Aggregator/MailFS.pm
@@ -7,7 +7,7 @@ use SWISH::Prog::Aggregator::Mail;    # delegate doc creation
 use Carp;
 use Data::Dump qw( dump );
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 =pod
 

diff --git a/lib/SWISH/Prog/Aggregator/Object.pm b/lib/SWISH/Prog/Aggregator/Object.pm
@@ -13,7 +13,7 @@ use Scalar::Util qw( blessed );
 __PACKAGE__->mk_accessors(
     qw( methods class title url modtime serial_format ));
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 my $XMLer = Search::Tools::XML->new();    # included in Utils
 

diff --git a/lib/SWISH/Prog/Aggregator/Spider.pm b/lib/SWISH/Prog/Aggregator/Spider.pm
@@ -50,7 +50,7 @@ __PACKAGE__->mk_accessors(
 
 #use LWP::Debug qw(+);
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 # TODO make these configurable
 my %parser_types = %SWISH::Prog::Utils::ParserTypes;

diff --git a/lib/SWISH/Prog/Aggregator/Spider/Response.pm b/lib/SWISH/Prog/Aggregator/Spider/Response.pm
@@ -10,7 +10,7 @@ use URI;
 use HTML::Tagset;
 use HTML::HeadParser;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(
     qw(

diff --git a/lib/SWISH/Prog/Aggregator/Spider/UA.pm b/lib/SWISH/Prog/Aggregator/Spider/UA.pm
@@ -9,7 +9,7 @@ use Data::Dump qw( dump );
 use Search::Tools::UTF8;
 use SWISH::Prog::Aggregator::Spider::Response;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 # if Compress::Zlib is installed, this should handle gzip transparently.
 # thanks to

diff --git a/lib/SWISH/Prog/Cache.pm b/lib/SWISH/Prog/Cache.pm
@@ -5,7 +5,7 @@ use base qw( SWISH::Prog::Class );
 __PACKAGE__->mk_accessors(qw( cache ));
 use Carp;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 =pod
 

diff --git a/lib/SWISH/Prog/Class.pm b/lib/SWISH/Prog/Class.pm
@@ -7,7 +7,7 @@ use Data::Dump qw( dump );
 use SWISH::Prog::Config;
 use Scalar::Util qw( blessed );
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(qw( debug verbose warnings ));
 

diff --git a/lib/SWISH/Prog/Config.pm b/lib/SWISH/Prog/Config.pm
@@ -16,7 +16,7 @@ use overload(
     fallback => 1,
 );
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 my $XML = Search::Tools::XML->new;
 

diff --git a/lib/SWISH/Prog/Doc.pm b/lib/SWISH/Prog/Doc.pm
@@ -12,7 +12,7 @@ use overload(
 
 use SWISH::Prog::Headers;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(
     qw( url modtime type parser content action size charset data version ));

diff --git a/lib/SWISH/Prog/Headers.pm b/lib/SWISH/Prog/Headers.pm
@@ -8,7 +8,7 @@ use Carp;
 __PACKAGE__->mk_accessors(qw( version ));
 use bytes;    # so length() measures bytes
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 our $AutoURL = time();
 our %Headers = (
     2 => {

diff --git a/lib/SWISH/Prog/Indexer.pm b/lib/SWISH/Prog/Indexer.pm
@@ -7,7 +7,7 @@ use Carp;
 use Data::Dump qw( dump );
 use SWISH::Prog::Config;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(
     qw( invindex config count clobber flush started test_mode ));

diff --git a/lib/SWISH/Prog/InvIndex.pm b/lib/SWISH/Prog/InvIndex.pm
@@ -13,7 +13,7 @@ use overload(
     fallback => 1,
 );
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(qw( path clobber ));
 

diff --git a/lib/SWISH/Prog/InvIndex/Meta.pm b/lib/SWISH/Prog/InvIndex/Meta.pm
@@ -6,10 +6,10 @@ use Carp;
 use XML::Simple;
 use SWISH::3 qw( :constants );
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(qw( invindex ));
-__PACKAGE__->mk_ro_accessors(qw( file ));
+__PACKAGE__->mk_ro_accessors(qw( file data ));
 
 # index metadata. read/write libswish3 file xml format.
 #
@@ -90,9 +90,13 @@ SWISH::Prog::InvIndex::Meta - read/write InvIndex metadata
 
 =head1 SYNOPSIS
 
+ use Data::Dump qw( dump );
  use SWISH::Prog::InvIndex;
  my $index = SWISH::Prog::InvIndex->new(path => 'path/to/index');
- print $index->meta;  # prints $index->meta->as_string
+ my $meta = $index->meta;
+ for my $key (keys %{ $meta->data }) {
+    dump $meta->$key;
+ }
  
 =head1 DESCRIPTION
 
@@ -111,6 +115,11 @@ Default is C<swish.xml>.
 
 Read and initialize the swish_header_file().
 
+=head2 data
+
+The contents of the header file as a Perl hashref. This is a read-only
+accessor.
+
 =head2 file
 
 The full path to the swish_header_file() file. This is a read-only accessor.

diff --git a/lib/SWISH/Prog/Native/Indexer.pm b/lib/SWISH/Prog/Native/Indexer.pm
@@ -9,7 +9,7 @@ use SWISH::Prog::Config;
 use Scalar::Util qw( blessed );
 use File::Copy ();
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 my $invindex_class = 'SWISH::Prog::Native::InvIndex';
 

diff --git a/lib/SWISH/Prog/Native/InvIndex.pm b/lib/SWISH/Prog/Native/InvIndex.pm
@@ -5,7 +5,7 @@ use Carp;
 use base qw( SWISH::Prog::InvIndex );
 __PACKAGE__->mk_accessors(qw( file ));
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 =head1 NAME
 

diff --git a/lib/SWISH/Prog/Native/Result.pm b/lib/SWISH/Prog/Native/Result.pm
@@ -20,7 +20,7 @@ __PACKAGE__->mk_accessors(
         )
 );
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 =head1 NAME
 

diff --git a/lib/SWISH/Prog/Native/Searcher.pm b/lib/SWISH/Prog/Native/Searcher.pm
@@ -10,7 +10,7 @@ use Search::Query;
 
 __PACKAGE__->mk_accessors(qw( swish sao_opts result_class ));
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 =head1 NAME
 

diff --git a/lib/SWISH/Prog/Queue.pm b/lib/SWISH/Prog/Queue.pm
@@ -4,7 +4,7 @@ use warnings;
 use base qw( SWISH::Prog::Class );
 use Carp;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 =pod
 

diff --git a/lib/SWISH/Prog/ReplaceRules.pm b/lib/SWISH/Prog/ReplaceRules.pm
@@ -7,7 +7,7 @@ use Carp;
 use Data::Dump qw( dump );
 use Text::ParseWords;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(qw( rules ));
 

diff --git a/lib/SWISH/Prog/Result.pm b/lib/SWISH/Prog/Result.pm
@@ -4,7 +4,7 @@ use warnings;
 use base qw( SWISH::Prog::Class );
 use Carp;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(qw( doc score ));
 

diff --git a/lib/SWISH/Prog/Results.pm b/lib/SWISH/Prog/Results.pm
@@ -4,7 +4,7 @@ use warnings;
 use base qw( SWISH::Prog::Class );
 use Carp;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(
     qw(

diff --git a/lib/SWISH/Prog/Searcher.pm b/lib/SWISH/Prog/Searcher.pm
@@ -5,7 +5,7 @@ use base qw( SWISH::Prog::Class );
 use Carp;
 use Scalar::Util qw( blessed );
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 __PACKAGE__->mk_accessors(
     qw(

diff --git a/lib/SWISH/Prog/Test/Indexer.pm b/lib/SWISH/Prog/Test/Indexer.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use base 'SWISH::Prog::Indexer';
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 sub test_mode {1}
 sub start     { }

diff --git a/lib/SWISH/Prog/Utils.pm b/lib/SWISH/Prog/Utils.pm
@@ -6,7 +6,7 @@ use Data::Dump qw( dump );
 use File::Basename;
 use Search::Tools::XML;
 
-our $VERSION = '0.68';
+our $VERSION = '0.69';
 
 =pod