r52995 - in /trunk/libtext-recordparser-perl: META.yml README bin/tab2graph debian/changelog debian/control lib/Text/RecordParser.pm lib/Text/RecordParser/Object.pm lib/Text/RecordParser/Tab.pm t/05-fetch.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Wed Feb 17 22:10:56 UTC 2010


Author: jawnsy-guest
Date: Wed Feb 17 22:10:48 2010
New Revision: 52995

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52995
Log:
* New upstream release
* Standards-Version 3.8.4 (no changes)

Modified:
    trunk/libtext-recordparser-perl/META.yml
    trunk/libtext-recordparser-perl/README
    trunk/libtext-recordparser-perl/bin/tab2graph
    trunk/libtext-recordparser-perl/debian/changelog
    trunk/libtext-recordparser-perl/debian/control
    trunk/libtext-recordparser-perl/lib/Text/RecordParser.pm
    trunk/libtext-recordparser-perl/lib/Text/RecordParser/Object.pm
    trunk/libtext-recordparser-perl/lib/Text/RecordParser/Tab.pm
    trunk/libtext-recordparser-perl/t/05-fetch.t

Modified: trunk/libtext-recordparser-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-recordparser-perl/META.yml?rev=52995&op=diff
==============================================================================
--- trunk/libtext-recordparser-perl/META.yml (original)
+++ trunk/libtext-recordparser-perl/META.yml Wed Feb 17 22:10:48 2010
@@ -1,6 +1,6 @@
 ---
 name: Text-RecordParser
-version: 1.3.0
+version: 1.4.0
 author:
   - 'Ken Youens-Clark <kclark at cpan.org>'
 abstract: Parse record-oriented data in a text file
@@ -24,13 +24,13 @@
 provides:
   Text::RecordParser:
     file: lib/Text/RecordParser.pm
-    version: 1.3.0
+    version: 1.4.0
   Text::RecordParser::Object:
     file: lib/Text/RecordParser/Object.pm
-    version: 1.3.0
+    version: 1.4.0
   Text::RecordParser::Tab:
     file: lib/Text/RecordParser/Tab.pm
-    version: 1.3.0
+    version: 1.4.0
 generated_by: Module::Build version 0.32
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html

Modified: trunk/libtext-recordparser-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-recordparser-perl/README?rev=52995&op=diff
==============================================================================
--- trunk/libtext-recordparser-perl/README (original)
+++ trunk/libtext-recordparser-perl/README Wed Feb 17 22:10:48 2010
@@ -2,7 +2,7 @@
     Text::RecordParser - read record-oriented files
 
 VERSION
-    This documentation refers to version 1.3.0.
+    This documentation refers to version 1.4.0.
 
 SYNOPSIS
       use Text::RecordParser;

Modified: trunk/libtext-recordparser-perl/bin/tab2graph
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-recordparser-perl/bin/tab2graph?rev=52995&op=diff
==============================================================================
--- trunk/libtext-recordparser-perl/bin/tab2graph (original)
+++ trunk/libtext-recordparser-perl/bin/tab2graph Wed Feb 17 22:10:48 2010
@@ -146,8 +146,6 @@
 
 # -------------------------------------------------------------------
 
-# $Id: tabmerge,v 1.11 2006/03/07 17:20:00 kclark Exp $
-
 =pod
 
 =head1 NAME

Modified: trunk/libtext-recordparser-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-recordparser-perl/debian/changelog?rev=52995&op=diff
==============================================================================
--- trunk/libtext-recordparser-perl/debian/changelog (original)
+++ trunk/libtext-recordparser-perl/debian/changelog Wed Feb 17 22:10:48 2010
@@ -1,3 +1,10 @@
+libtext-recordparser-perl (1.4.0-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * Standards-Version 3.8.4 (no changes)
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Wed, 17 Feb 2010 16:40:40 -0500
+
 libtext-recordparser-perl (1.3.0-1) unstable; urgency=low
 
   * Initial Release (Closes: #549243)

Modified: trunk/libtext-recordparser-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-recordparser-perl/debian/control?rev=52995&op=diff
==============================================================================
--- trunk/libtext-recordparser-perl/debian/control (original)
+++ trunk/libtext-recordparser-perl/debian/control Wed Feb 17 22:10:48 2010
@@ -9,7 +9,7 @@
  perl (>= 5.10) | libmodule-build-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jonathan Yu <jawnsy at cpan.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.8.4
 Homepage: http://search.cpan.org/dist/Text-RecordParser/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libtext-recordparser-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libtext-recordparser-perl/
@@ -20,7 +20,7 @@
  libclass-accessor-perl, libreadonly-perl, liblist-moreutils-perl,
  perl (>= 5.10) | libversion-perl
 Recommends: libreadonly-xs-perl, libgraphviz-perl, libtext-tabulardisplay-perl
-Description: Perl module to parse record-oriented data in a text file
+Description: module to parse record-oriented data in a text file
  Text::RecordParser is a Perl module that extracts record-oriented data from
  arbitrary text files. The most common example has records separated by
  newlines and fields delimited by commas or tabs. This module aims to provide

Modified: trunk/libtext-recordparser-perl/lib/Text/RecordParser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-recordparser-perl/lib/Text/RecordParser.pm?rev=52995&op=diff
==============================================================================
--- trunk/libtext-recordparser-perl/lib/Text/RecordParser.pm (original)
+++ trunk/libtext-recordparser-perl/lib/Text/RecordParser.pm Wed Feb 17 22:10:48 2010
@@ -1,14 +1,12 @@
 package Text::RecordParser;
 
-# $Id: RecordParser.pm,v 1.12 2006/05/18 18:53:41 kclark Exp $
-
 =head1 NAME
 
 Text::RecordParser - read record-oriented files
 
 =head1 VERSION
 
-This documentation refers to version 1.3.0.
+This documentation refers to version 1.4.0.
 
 =head1 SYNOPSIS
 
@@ -97,7 +95,7 @@
 use Readonly;
 use Text::ParseWords qw( parse_line );
 
-our $VERSION = version->new('1.3.0');
+our $VERSION = version->new('1.4.0');
 
 Readonly my $COMMA     => q{,};
 Readonly my $EMPTY_STR => q{};
@@ -495,7 +493,7 @@
 =cut
 
     my $self   = shift;
-    my @fields = $self->field_list or return;
+    my @fields = $self->field_list     or return;
     my @row    = $self->fetchrow_array or return;
 
     my $i = 0;
@@ -539,8 +537,8 @@
 =cut
 
     my $self   = shift;
-    my $row    = $self->fetchrow_hashref;
-    my @fields = $self->field_list or return;
+    my $row    = $self->fetchrow_hashref or return;
+    my @fields = $self->field_list       or return;
 
     push @fields, map { $self->get_field_aliases( $_ ) } @fields;
 

Modified: trunk/libtext-recordparser-perl/lib/Text/RecordParser/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-recordparser-perl/lib/Text/RecordParser/Object.pm?rev=52995&op=diff
==============================================================================
--- trunk/libtext-recordparser-perl/lib/Text/RecordParser/Object.pm (original)
+++ trunk/libtext-recordparser-perl/lib/Text/RecordParser/Object.pm Wed Feb 17 22:10:48 2010
@@ -6,7 +6,7 @@
 
 use base qw( Class::Accessor );
 
-our $VERSION = version->new('1.3.0');
+our $VERSION = version->new('1.4.0');
 
 sub new {
     my ( $class, $field_names, $self ) = @_;
@@ -20,8 +20,6 @@
 __END__
 
 # ----------------------------------------------------------------
-
-# $Id: Object.pm,v 1.2 2006/03/07 17:20:00 kclark Exp $
 
 =pod
 

Modified: trunk/libtext-recordparser-perl/lib/Text/RecordParser/Tab.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-recordparser-perl/lib/Text/RecordParser/Tab.pm?rev=52995&op=diff
==============================================================================
--- trunk/libtext-recordparser-perl/lib/Text/RecordParser/Tab.pm (original)
+++ trunk/libtext-recordparser-perl/lib/Text/RecordParser/Tab.pm Wed Feb 17 22:10:48 2010
@@ -6,7 +6,7 @@
 
 use base qw( Text::RecordParser );
 
-our $VERSION = version->new('1.3.0');
+our $VERSION = version->new('1.4.0');
 
 # ----------------------------------------------------------------
 sub new {
@@ -23,8 +23,6 @@
 __END__
 
 # ----------------------------------------------------------------
-
-# $Id: Tab.pm,v 1.2 2006/02/17 16:51:28 kclark Exp $
 
 =pod
 

Modified: trunk/libtext-recordparser-perl/t/05-fetch.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-recordparser-perl/t/05-fetch.t?rev=52995&op=diff
==============================================================================
--- trunk/libtext-recordparser-perl/t/05-fetch.t (original)
+++ trunk/libtext-recordparser-perl/t/05-fetch.t Wed Feb 17 22:10:48 2010
@@ -9,9 +9,10 @@
 use FindBin '$Bin';
 use Readonly;
 use Test::Exception;
-use Test::More tests => 35;
+use Test::More tests => 38;
 use Text::RecordParser;
 use Text::RecordParser::Tab;
+use Text::RecordParser::Object;
 
 Readonly my $TEST_DATA_DIR => catdir( $Bin, 'data' );
 
@@ -227,3 +228,18 @@
     is( $row->{'Pets'}, q[Snowball(s),Santa's Little Helper], 
         'Pets OK (apostrophe backslashed-unescaped)' );
 }
+
+{
+    my $p  = Text::RecordParser->new( { fh => \*DATA } );
+    my $o1 = $p->fetchrow_object;
+    is( $o1->name, 'moose', 'moose OK' );
+    my $o2 = $p->fetchrow_object;
+    is( $o2->name, 'poodle', 'poodle OK' );
+    my $o3 = $p->fetchrow_object;
+    is( $o3, undef, 'No problem reading off the end' );
+}
+
+__DATA__
+name,id
+moose,1
+poodle,2




More information about the Pkg-perl-cvs-commits mailing list