r48429 - in /branches/upstream/libdata-section-perl/current: ./ lib/Data/ t/ t/lib/ t/lib/I/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Tue Dec 8 15:17:59 UTC 2009 

Author: jawnsy-guest
Date: Tue Dec  8 15:17:49 2009
New Revision: 48429

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48429
Log:
[svn-upgrade] Integrating new upstream version, libdata-section-perl (0.093410)

Added:
    branches/upstream/libdata-section-perl/current/t/lib/NoName.pm
Modified:
    branches/upstream/libdata-section-perl/current/Changes
    branches/upstream/libdata-section-perl/current/MANIFEST
    branches/upstream/libdata-section-perl/current/META.json
    branches/upstream/libdata-section-perl/current/META.yml
    branches/upstream/libdata-section-perl/current/Makefile.PL
    branches/upstream/libdata-section-perl/current/README
    branches/upstream/libdata-section-perl/current/lib/Data/Section.pm
    branches/upstream/libdata-section-perl/current/t/basic.t
    branches/upstream/libdata-section-perl/current/t/lib/Child.pm
    branches/upstream/libdata-section-perl/current/t/lib/Godfather.pm
    branches/upstream/libdata-section-perl/current/t/lib/Grandchild.pm
    branches/upstream/libdata-section-perl/current/t/lib/I/Child.pm
    branches/upstream/libdata-section-perl/current/t/lib/I/Grandchild.pm
    branches/upstream/libdata-section-perl/current/t/lib/I/Parent.pm
    branches/upstream/libdata-section-perl/current/t/lib/NoData.pm
    branches/upstream/libdata-section-perl/current/t/lib/Parent.pm

Modified: branches/upstream/libdata-section-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/Changes?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/Changes (original)
+++ branches/upstream/libdata-section-perl/current/Changes Tue Dec  8 15:17:49 2009
@@ -1,4 +1,8 @@
 Revision history for Data-Section
+
+0.093410  2009-12-07 18:45:56 America/New_York
+          allow data before first marker if default_name given
+          (thanks, Uwe Voelker)
 
 0.093330  2009-11-29 17:45:10 America/New_York
           re-release to include a META.yml for cpandeps

Modified: branches/upstream/libdata-section-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/MANIFEST?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/MANIFEST (original)
+++ branches/upstream/libdata-section-perl/current/MANIFEST Tue Dec  8 15:17:49 2009
@@ -15,6 +15,7 @@
 t/lib/I/Grandchild.pm
 t/lib/I/Parent.pm
 t/lib/NoData.pm
+t/lib/NoName.pm
 t/lib/Parent.pm
 t/release-pod-coverage.t
 t/release-pod-syntax.t

Modified: branches/upstream/libdata-section-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/META.json?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/META.json (original)
+++ branches/upstream/libdata-section-perl/current/META.json Tue Dec  8 15:17:49 2009
@@ -6,8 +6,8 @@
       "version" : 1.4,
       "url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
    },
-   "generated_by" : "Dist::Zilla version 1.093290",
-   "version" : "0.093330",
+   "generated_by" : "Dist::Zilla version 1.093400",
+   "version" : "0.093410",
    "name" : "Data-Section",
    "author" : [
       "Ricardo SIGNES <rjbs at cpan.org>"

Modified: branches/upstream/libdata-section-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/META.yml?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/META.yml (original)
+++ branches/upstream/libdata-section-perl/current/META.yml Tue Dec  8 15:17:49 2009
@@ -2,7 +2,7 @@
 abstract: 'read multiple hunks of data out of your DATA section'
 author:
   - 'Ricardo SIGNES <rjbs at cpan.org>'
-generated_by: 'Dist::Zilla version 1.093290'
+generated_by: 'Dist::Zilla version 1.093400'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -13,4 +13,4 @@
   Sub::Exporter: 0.979
 resources:
   repository: http://github.com/rjbs/data-section
-version: 0.093330
+version: 0.093410

Modified: branches/upstream/libdata-section-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/Makefile.PL?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/Makefile.PL (original)
+++ branches/upstream/libdata-section-perl/current/Makefile.PL Tue Dec  8 15:17:49 2009
@@ -11,7 +11,7 @@
   NAME      => 'Data::Section',
   AUTHOR    => "Ricardo\ SIGNES\ \<rjbs\@cpan\.org\>",
   ABSTRACT  => "read\ multiple\ hunks\ of\ data\ out\ of\ your\ DATA\ section",
-  VERSION   => '0.093330',
+  VERSION   => '0.093410',
   EXE_FILES => [ qw() ],
   (eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
   PREREQ_PM    => {

Modified: branches/upstream/libdata-section-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/README?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/README (original)
+++ branches/upstream/libdata-section-perl/current/README Tue Dec  8 15:17:49 2009
@@ -1,7 +1,7 @@
 
 
 This archive contains the distribution Data-Section, version
-0.093330:
+0.093410:
 
   read multiple hunks of data out of your DATA section
 

Modified: branches/upstream/libdata-section-perl/current/lib/Data/Section.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/lib/Data/Section.pm?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/lib/Data/Section.pm (original)
+++ branches/upstream/libdata-section-perl/current/lib/Data/Section.pm Tue Dec  8 15:17:49 2009
@@ -1,9 +1,7 @@
 use strict;
 use warnings;
 package Data::Section;
-our $VERSION = '0.093330';
-
-
+our $VERSION = '0.093410';
 # ABSTRACT: read multiple hunks of data out of your DATA section
 
 use Class::ISA;
@@ -35,6 +33,10 @@
     return $stash{ $pkg} unless defined fileno *$dh;
 
     my $current;
+    if ($arg->{default_name}) {
+        $current = $arg->{default_name};
+        $template->{ $current } = \(my $blank = q{});
+    }
     LINE: while (my $line = <$dh>) {
       if ($line =~ $header_re) {
         $current = $1;
@@ -111,14 +113,11 @@
 
 =head1 VERSION
 
-version 0.093330
+version 0.093410
 
 =head1 SYNOPSIS
 
   package Letter::Resignation;
-our $VERSION = '0.093330';
-
-
   use Data::Section -setup;
 
   sub quit {
@@ -171,11 +170,14 @@
 
 Valid arguments are:
 
-  inherit - if true, allow packages to inherit the data of the packages
-            from which they inherit; default: true
-
-  header_re - if given, changes the regex used to find section headers
-              in the data section; it should leave the section name in $1
+  inherit      - if true, allow packages to inherit the data of the packages
+                 from which they inherit; default: true
+
+  header_re    - if given, changes the regex used to find section headers
+                 in the data section; it should leave the section name in $1
+
+  default_name - if given, allows the first section to has no header and set
+                 its name
 
 Three methods are exported by Data::Section:
 
@@ -249,9 +251,6 @@
 data section in the correct package.
 
    package Foo;
-our $VERSION = '0.093330';
-
-
 
    use MooseX::Declare;
    class Foo {

Modified: branches/upstream/libdata-section-perl/current/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/basic.t?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/basic.t (original)
+++ branches/upstream/libdata-section-perl/current/t/basic.t Tue Dec  8 15:17:49 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use Test::More tests => 19;
+use Test::More tests => 20;
 
 use Parent;
 use Child;
@@ -12,6 +12,7 @@
 use I::Grandchild;
 
 use NoData;
+use NoName;
 
 my @want = (
   Parent     => { a => \"1\n",   b => \"2\n",  c => \"3\n" },
@@ -55,3 +56,9 @@
 );
 
 is_deeply(NoData->local_section_data, {}, "nothing found in NoData");
+
+is_deeply(
+  NoName->local_section_data,
+  { a => \"1\n", b => \"2\n" },
+  "default name in NoName",
+);

Modified: branches/upstream/libdata-section-perl/current/t/lib/Child.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/lib/Child.pm?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/lib/Child.pm (original)
+++ branches/upstream/libdata-section-perl/current/t/lib/Child.pm Tue Dec  8 15:17:49 2009
@@ -1,9 +1,7 @@
 use strict;
 use warnings;
 package Child;
-our $VERSION = '0.093330';
-
-
+our $VERSION = '0.093410';
 use Godfather;
 use base qw(Parent Godfather);
 1;

Modified: branches/upstream/libdata-section-perl/current/t/lib/Godfather.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/lib/Godfather.pm?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/lib/Godfather.pm (original)
+++ branches/upstream/libdata-section-perl/current/t/lib/Godfather.pm Tue Dec  8 15:17:49 2009
@@ -1,9 +1,7 @@
 use strict;
 use warnings;
 package Godfather;
-our $VERSION = '0.093330';
-
-
+our $VERSION = '0.093410';
 1;
 __DATA__
 __[a]__

Modified: branches/upstream/libdata-section-perl/current/t/lib/Grandchild.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/lib/Grandchild.pm?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/lib/Grandchild.pm (original)
+++ branches/upstream/libdata-section-perl/current/t/lib/Grandchild.pm Tue Dec  8 15:17:49 2009
@@ -1,9 +1,7 @@
 use strict;
 use warnings;
 package Grandchild;
-our $VERSION = '0.093330';
-
-
+our $VERSION = '0.093410';
 use base 'Child';
 
 1;

Modified: branches/upstream/libdata-section-perl/current/t/lib/I/Child.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/lib/I/Child.pm?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/lib/I/Child.pm (original)
+++ branches/upstream/libdata-section-perl/current/t/lib/I/Child.pm Tue Dec  8 15:17:49 2009
@@ -1,9 +1,7 @@
 use strict;
 use warnings;
 package I::Child;
-our $VERSION = '0.093330';
-
-
+our $VERSION = '0.093410';
 use Godfather;
 use base qw(I::Parent Godfather);
 1;

Modified: branches/upstream/libdata-section-perl/current/t/lib/I/Grandchild.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/lib/I/Grandchild.pm?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/lib/I/Grandchild.pm (original)
+++ branches/upstream/libdata-section-perl/current/t/lib/I/Grandchild.pm Tue Dec  8 15:17:49 2009
@@ -1,9 +1,7 @@
 use strict;
 use warnings;
 package I::Grandchild;
-our $VERSION = '0.093330';
-
-
+our $VERSION = '0.093410';
 use base 'I::Child';
 
 1;

Modified: branches/upstream/libdata-section-perl/current/t/lib/I/Parent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/lib/I/Parent.pm?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/lib/I/Parent.pm (original)
+++ branches/upstream/libdata-section-perl/current/t/lib/I/Parent.pm Tue Dec  8 15:17:49 2009
@@ -1,9 +1,7 @@
 use strict;
 use warnings;
 package I::Parent;
-our $VERSION = '0.093330';
-
-
+our $VERSION = '0.093410';
 use Data::Section -setup;
 
 1;

Modified: branches/upstream/libdata-section-perl/current/t/lib/NoData.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/lib/NoData.pm?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/lib/NoData.pm (original)
+++ branches/upstream/libdata-section-perl/current/t/lib/NoData.pm Tue Dec  8 15:17:49 2009
@@ -1,9 +1,7 @@
 use strict;
 use warnings;
 package NoData;
-our $VERSION = '0.093330';
-
-
+our $VERSION = '0.093410';
 use Data::Section -setup;
 
 1;

Added: branches/upstream/libdata-section-perl/current/t/lib/NoName.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/lib/NoName.pm?rev=48429&op=file
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/lib/NoName.pm (added)
+++ branches/upstream/libdata-section-perl/current/t/lib/NoName.pm Tue Dec  8 15:17:49 2009
@@ -1,0 +1,11 @@
+use strict;
+use warnings;
+package NoName;
+our $VERSION = '0.093410';
+use Data::Section -setup => { default_name => 'a' };
+
+1;
+__DATA__
+1
+__[b]__
+2

Modified: branches/upstream/libdata-section-perl/current/t/lib/Parent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-section-perl/current/t/lib/Parent.pm?rev=48429&op=diff
==============================================================================
--- branches/upstream/libdata-section-perl/current/t/lib/Parent.pm (original)
+++ branches/upstream/libdata-section-perl/current/t/lib/Parent.pm Tue Dec  8 15:17:49 2009
@@ -1,9 +1,7 @@
 use strict;
 use warnings;
 package Parent;
-our $VERSION = '0.093330';
-
-
+our $VERSION = '0.093410';
 use Data::Section -setup => { inherit => 0 };
 
 1;

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