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