r52986 - in /branches/upstream/libtext-recordparser-perl/current: META.yml README bin/tab2graph 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 21:19:07 UTC 2010
Author: jawnsy-guest
Date: Wed Feb 17 21:18:59 2010
New Revision: 52986
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52986
Log:
[svn-upgrade] Integrating new upstream version, libtext-recordparser-perl (1.4.0)
Modified:
branches/upstream/libtext-recordparser-perl/current/META.yml
branches/upstream/libtext-recordparser-perl/current/README
branches/upstream/libtext-recordparser-perl/current/bin/tab2graph
branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser.pm
branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Object.pm
branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Tab.pm
branches/upstream/libtext-recordparser-perl/current/t/05-fetch.t
Modified: branches/upstream/libtext-recordparser-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-recordparser-perl/current/META.yml?rev=52986&op=diff
==============================================================================
--- branches/upstream/libtext-recordparser-perl/current/META.yml (original)
+++ branches/upstream/libtext-recordparser-perl/current/META.yml Wed Feb 17 21:18:59 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: branches/upstream/libtext-recordparser-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-recordparser-perl/current/README?rev=52986&op=diff
==============================================================================
--- branches/upstream/libtext-recordparser-perl/current/README (original)
+++ branches/upstream/libtext-recordparser-perl/current/README Wed Feb 17 21:18:59 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: branches/upstream/libtext-recordparser-perl/current/bin/tab2graph
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-recordparser-perl/current/bin/tab2graph?rev=52986&op=diff
==============================================================================
--- branches/upstream/libtext-recordparser-perl/current/bin/tab2graph (original)
+++ branches/upstream/libtext-recordparser-perl/current/bin/tab2graph Wed Feb 17 21:18:59 2010
@@ -146,8 +146,6 @@
# -------------------------------------------------------------------
-# $Id: tabmerge,v 1.11 2006/03/07 17:20:00 kclark Exp $
-
=pod
=head1 NAME
Modified: branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser.pm?rev=52986&op=diff
==============================================================================
--- branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser.pm (original)
+++ branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser.pm Wed Feb 17 21:18:59 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: branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Object.pm?rev=52986&op=diff
==============================================================================
--- branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Object.pm (original)
+++ branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Object.pm Wed Feb 17 21:18:59 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: branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Tab.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Tab.pm?rev=52986&op=diff
==============================================================================
--- branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Tab.pm (original)
+++ branches/upstream/libtext-recordparser-perl/current/lib/Text/RecordParser/Tab.pm Wed Feb 17 21:18:59 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: branches/upstream/libtext-recordparser-perl/current/t/05-fetch.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-recordparser-perl/current/t/05-fetch.t?rev=52986&op=diff
==============================================================================
--- branches/upstream/libtext-recordparser-perl/current/t/05-fetch.t (original)
+++ branches/upstream/libtext-recordparser-perl/current/t/05-fetch.t Wed Feb 17 21:18:59 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