r48505 - in /trunk/libmodule-starter-perl: ./ debian/ lib/Module/ lib/Module/Starter/ lib/Module/Starter/Plugin/ t/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Wed Dec 9 21:27:38 UTC 2009


Author: jawnsy-guest
Date: Wed Dec  9 21:27:32 2009
New Revision: 48505

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48505
Log:
New upstream release

Modified:
    trunk/libmodule-starter-perl/Changes
    trunk/libmodule-starter-perl/MANIFEST
    trunk/libmodule-starter-perl/META.yml
    trunk/libmodule-starter-perl/Makefile.PL
    trunk/libmodule-starter-perl/debian/changelog
    trunk/libmodule-starter-perl/lib/Module/Starter.pm
    trunk/libmodule-starter-perl/lib/Module/Starter/App.pm
    trunk/libmodule-starter-perl/lib/Module/Starter/BuilderSet.pm
    trunk/libmodule-starter-perl/lib/Module/Starter/Plugin/Template.pm
    trunk/libmodule-starter-perl/lib/Module/Starter/Simple.pm
    trunk/libmodule-starter-perl/t/module-starter.t
    trunk/libmodule-starter-perl/t/test-dist.t

Modified: trunk/libmodule-starter-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/Changes?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/Changes (original)
+++ trunk/libmodule-starter-perl/Changes Wed Dec  9 21:27:32 2009
@@ -1,4 +1,26 @@
 Revision history for Perl extension Module::Starter
+
+1.54    Tue Dec  8 09:11:00 CST 2009
+
+        This release could not have happened without Sawyer X.
+
+        [ENHANCEMENTS]
+        Added more exclusions.  Thanks to Olivier Mengué.
+
+        * [RT #45941] Correcting POD sections for Perl Critic (Sawyer X)
+
+        * [RT #13847] Bail out if load fails, minimum Test::Harness (Sawyer X)
+
+        * [RT #24110] Support for Test::CheckManifest + tests for it (Sawyer X)
+
+        * [RT #22648] Pod::Parser (Pod::Usage) >= 1.21 (Sawyer X)
+        (earliest Backpan version tested to work)
+
+        * [RT #48723] Add metadata to META.yml (Sawyer X)
+        (Patch provided by Olivier Mengué, thank you!)
+
+        * [RT #39397] Add option to create .gitignore (Sawyer X)
+
 
 1.52    Mon Jul 27 01:25:03 CDT 2009
         * Support for more licenses.  Thanks to Shlomi Fish.

Modified: trunk/libmodule-starter-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/MANIFEST?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/MANIFEST (original)
+++ trunk/libmodule-starter-perl/MANIFEST Wed Dec  9 21:27:32 2009
@@ -1,5 +1,4 @@
 Changes
-getting-started.html
 MANIFEST
 Makefile.PL
 README

Modified: trunk/libmodule-starter-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/META.yml?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/META.yml (original)
+++ trunk/libmodule-starter-perl/META.yml Wed Dec  9 21:27:32 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Module-Starter
-version:            1.52
+version:            1.54
 abstract:           a simple starter kit for any module
 author:
     - Andy Lester <andy at petdance.com>
@@ -14,13 +14,18 @@
     ExtUtils::Command:  0
     File::Spec:         0
     Getopt::Long:       0
-    Pod::Usage:         0
+    Pod::Usage:         1.21
+    Test::Harness:      0.21
     Test::More:         0
+resources:
+    bugtracker:  http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Starter
+    homepage:    http://code.google.com/p/module-starter/
+    repository:  http://module-starter.googlecode.com/svn/trunk/
 no_index:
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.52
+generated_by:       ExtUtils::MakeMaker version 6.50
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: trunk/libmodule-starter-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/Makefile.PL?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/Makefile.PL (original)
+++ trunk/libmodule-starter-perl/Makefile.PL Wed Dec  9 21:27:32 2009
@@ -13,11 +13,21 @@
     EXE_FILES           => [ 'bin/module-starter' ],
     PREREQ_PM => {
         'Test::More'            => 0,
+        'Test::Harness'         => 0.21,
         'ExtUtils::Command'     => 0,
         'File::Spec'            => 0,
         'Getopt::Long'          => 0,
-        'Pod::Usage'            => 0,
+        'Pod::Usage'            => 1.21,
     },
+    (! eval { ExtUtils::MakeMaker->VERSION(6.46) } ? () :
+        (META_ADD => {
+            resources => {
+                homepage   => 'http://code.google.com/p/module-starter/',
+                repository => 'http://module-starter.googlecode.com/svn/trunk/',
+                bugtracker => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Starter',
+            },
+        })
+    ),
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean               => { FILES => 'Module-Release-*' },
 );

Modified: trunk/libmodule-starter-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/debian/changelog?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/debian/changelog (original)
+++ trunk/libmodule-starter-perl/debian/changelog Wed Dec  9 21:27:32 2009
@@ -1,8 +1,12 @@
-libmodule-starter-perl (1.520+dfsg-2) UNRELEASED; urgency=low
+libmodule-starter-perl (1.540+dfsg-1) UNRELEASED; urgency=low
 
+  [ Jonathan Yu ]
+  * New upstream release
+
+  [ Ryan Niebur ]
   * Update jawnsy's email address
 
- -- Ryan Niebur <ryanryan52 at gmail.com>  Tue, 01 Sep 2009 21:19:15 -0700
+ -- Jonathan Yu <jawnsy at cpan.org>  Wed, 09 Dec 2009 13:17:46 -0500
 
 libmodule-starter-perl (1.520+dfsg-1) unstable; urgency=low
 

Modified: trunk/libmodule-starter-perl/lib/Module/Starter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/lib/Module/Starter.pm?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/lib/Module/Starter.pm (original)
+++ trunk/libmodule-starter-perl/lib/Module/Starter.pm Wed Dec  9 21:27:32 2009
@@ -1,5 +1,4 @@
 package Module::Starter;
-# vi:et:sw=4 ts=4
 
 use warnings;
 use strict;
@@ -11,11 +10,11 @@
 
 =head1 VERSION
 
-version 1.52
+version 1.54
 
 =cut
 
-our $VERSION = '1.52';
+our $VERSION = '1.54';
 
 =head1 SYNOPSIS
 
@@ -47,19 +46,32 @@
 
 It takes a hash of params, as follows:
 
-    distro  => $distroname,      # distribution name (defaults to first module)
-    modules => [ module names ], # modules to create in distro
-    dir     => $dirname,         # directory in which to build distro
-    builder => 'Module::Build',  # defaults to ExtUtils::MakeMaker
-                                 # or specify more than one builder in an
-                                 # arrayref
+    distro       => $distroname,      # distribution name (defaults to first module)
+    modules      => [ module names ], # modules to create in distro
+    dir          => $dirname,         # directory in which to build distro
+    builder      => 'Module::Build',  # defaults to ExtUtils::MakeMaker
+                                      # or specify more than one builder in an
+                                      # arrayref
 
-    license => $license,  # type of license; defaults to 'perl'
-    author  => $author,   # author's full name (required)
-    email   => $email,    # author's email address (required)
+    license      => $license,  # type of license; defaults to 'perl'
+    author       => $author,   # author's full name (required)
+    email        => $email,    # author's email address (required)
+    ignores_type => $type,     # ignores file type ('generic', 'cvs', 'git', 'manifest' )
 
-    verbose => $verbose,  # bool: print progress messages; defaults to 0
-    force   => $force     # bool: overwrite existing files; defaults to 0
+    verbose      => $verbose,  # bool: print progress messages; defaults to 0
+    force        => $force     # bool: overwrite existing files; defaults to 0
+
+The ignores_type is a new feature that allows to create SCM-specific ignore files.
+These are the mappings:
+
+    ignores_type => 'generic'  # default, creates 'ignore.txt'
+    ignores_type => 'cvs'      # creates .cvsignore
+    ignores_type => 'git'      # creates .gitignore
+    ignores_type => 'manifest' # creates MANIFEST.SKIP
+
+It is also possible to provide an array ref with multiple types wanted:
+
+    ignores_type => [ 'git', 'manifest' ]
 
 =head1 PLUGINS
 
@@ -111,7 +123,7 @@
 
     perldoc Module::Starter
 
-    You can also look for information at:
+You can also look for information at:
 
 =over 4
 
@@ -146,7 +158,7 @@
 
 =head1 COPYRIGHT
 
-Copyright 2005-7 Andy Lester, Ricardo Signes and C.J. Adams-Collier,
+Copyright 2005-2009 Andy Lester, Ricardo Signes and C.J. Adams-Collier,
 All Rights Reserved.
 
 This program is free software; you can redistribute it and/or modify it
@@ -155,3 +167,5 @@
 =cut
 
 1;
+
+# vi:et:sw=4 ts=4

Modified: trunk/libmodule-starter-perl/lib/Module/Starter/App.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/lib/Module/Starter/App.pm?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/lib/Module/Starter/App.pm (original)
+++ trunk/libmodule-starter-perl/lib/Module/Starter/App.pm Wed Dec  9 21:27:32 2009
@@ -9,7 +9,7 @@
 use warnings;
 use strict;
 
-our $VERSION = '1.52';
+our $VERSION = '1.54';
 
 use Getopt::Long;
 use Pod::Usage;

Modified: trunk/libmodule-starter-perl/lib/Module/Starter/BuilderSet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/lib/Module/Starter/BuilderSet.pm?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/lib/Module/Starter/BuilderSet.pm (original)
+++ trunk/libmodule-starter-perl/lib/Module/Starter/BuilderSet.pm Wed Dec  9 21:27:32 2009
@@ -1,5 +1,4 @@
 package Module::Starter::BuilderSet;
-# vi:et:sw=4 ts=4
 
 use strict;
 use warnings;
@@ -12,11 +11,11 @@
 
 =head1 VERSION
 
-Version 1.52
-
-=cut
-
-our $VERSION = '1.52';
+Version 1.54
+
+=cut
+
+our $VERSION = '1.54';
 
 =head1 SYNOPSIS
 
@@ -274,5 +273,6 @@
 
 =cut
 
-
 1;
+
+# vi:et:sw=4 ts=4

Modified: trunk/libmodule-starter-perl/lib/Module/Starter/Plugin/Template.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/lib/Module/Starter/Plugin/Template.pm?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/lib/Module/Starter/Plugin/Template.pm (original)
+++ trunk/libmodule-starter-perl/lib/Module/Starter/Plugin/Template.pm Wed Dec  9 21:27:32 2009
@@ -1,5 +1,4 @@
 package Module::Starter::Plugin::Template;
-# vi:et:sw=4 ts=4
 
 use warnings;
 use strict;
@@ -11,11 +10,11 @@
 
 =head1 VERSION
 
-Version 1.52
-
-=cut
-
-our $VERSION = '1.52';
+Version 1.54
+
+=cut
+
+our $VERSION = '1.54';
 
 =head1 SYNOPSIS
 
@@ -251,4 +250,6 @@
 
 =cut
 
+# vi:et:sw=4 ts=4
+
 1;

Modified: trunk/libmodule-starter-perl/lib/Module/Starter/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/lib/Module/Starter/Simple.pm?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/lib/Module/Starter/Simple.pm (original)
+++ trunk/libmodule-starter-perl/lib/Module/Starter/Simple.pm Wed Dec  9 21:27:32 2009
@@ -1,5 +1,4 @@
 package Module::Starter::Simple;
-# vi:et:sw=4 ts=4
 
 use strict;
 use warnings;
@@ -16,11 +15,11 @@
 
 =head1 VERSION
 
-Version 1.52
-
-=cut
-
-our $VERSION = '1.52';
+Version 1.54
+
+=cut
+
+our $VERSION = '1.54';
 
 =head1 SYNOPSIS
 
@@ -59,7 +58,8 @@
     croak "Must specify an email address\n" unless $self->{email};
     ($self->{email_obfuscated} = $self->{email}) =~ s/@/ at /;
 
-    $self->{license} ||= 'perl';
+    $self->{license}      ||= 'perl';
+    $self->{ignores_type} ||= 'generic';
 
     $self->{main_module} = $modules[0];
     if ( not $self->{distro} ) {
@@ -684,7 +684,7 @@
     my $license_blurb = $self->_license_blurb();
 
 return <<"HERE";
-COPYRIGHT AND LICENCE
+LICENSE AND COPYRIGHT
 
 Copyright (C) $year $self->{author}
 
@@ -769,6 +769,22 @@
 plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
 
 all_pod_files_ok();
+HERE
+
+    $t_files{'manifest.t'} = <<'HERE';
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+unless ( $ENV{RELEASE_TESTING} ) {
+    plan( skip_all => "Author tests not required for installation" );
+}
+
+eval "use Test::CheckManifest 0.9";
+plan skip_all => "Test::CheckManifest 0.9 required" if $@;
+ok_manifest();
 HERE
 
     $t_files{'pod-coverage.t'} = <<'HERE';
@@ -794,7 +810,9 @@
 
     my $nmodules = @modules;
     my $main_module = $modules[0];
-    my $use_lines = join( "\n", map { "    use_ok( '$_' );" } @modules );
+    my $use_lines = join(
+        "\n", map { qq{    use_ok( '$_' ) || print "Bail out!\n";} } @modules
+    );
 
     $t_files{'00-load.t'} = <<"HERE";
 #!perl -T
@@ -997,11 +1015,30 @@
 =cut
 
 sub create_ignores {
-    my $self = shift;
-
-    my $fname = File::Spec->catfile( $self->{basedir}, 'ignore.txt' );
-    $self->create_file( $fname, $self->ignores_guts() );
-    $self->progress( "Created $fname" );
+    my $self  = shift;
+    my $type  = $self->{ignores_type};
+    my %names = (
+        cvs      => '.cvsignore',
+        git      => '.gitignore',
+        generic  => 'ignore.txt',
+        manifest => 'MANIFEST.SKIP',
+    );
+
+    my $create_file = sub {
+        my $type  = shift;
+        my $name  = $names{$type};
+        my $fname = File::Spec->catfile( $self->{basedir}, $names{$type} );
+        $self->create_file( $fname, $self->ignores_guts() );
+        $self->progress( "Created $fname" );
+    };
+
+    if ( ref $type eq 'ARRAY' ) {
+        foreach my $single_type ( @{$type} ) {
+            $create_file->($single_type);
+        }
+    } elsif ( ! ref $type ) {
+        $create_file->($type);
+    }
 
     return; # Not a file that goes in the MANIFEST
 }
@@ -1021,12 +1058,14 @@
 Makefile
 Makefile.old
 Build
+Build.bat
 _build*
 pm_to_blib*
 *.tar.gz
 .lwpcookies
+cover_db
+pod2htm*.tmp
 $self->{distro}-*
-cover_db
 HERE
 }
 
@@ -1193,7 +1232,7 @@
     my $year          = $self->_thisyear();
 
     my $content = qq[
-\=head1 COPYRIGHT & LICENSE
+\=head1 LICENSE AND COPYRIGHT
 
 Copyright $year $self->{author}.
 
@@ -1233,7 +1272,7 @@
 A list of functions that can be exported.  You can delete this section
 if you don't export anything, such as for a purely object-oriented module.
 
-\=head1 FUNCTIONS
+\=head1 SUBROUTINES/METHODS
 
 \=head2 function1
 
@@ -1267,4 +1306,7 @@
 HERE
     return $content;
 }
+
 1;
+
+# vi:et:sw=4 ts=4

Modified: trunk/libmodule-starter-perl/t/module-starter.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/t/module-starter.t?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/t/module-starter.t (original)
+++ trunk/libmodule-starter-perl/t/module-starter.t Wed Dec  9 21:27:32 2009
@@ -91,6 +91,7 @@
      catfile($starter_dir, 't', '00-load.t')      => 'f',
      catfile($starter_dir, 't', 'boilerplate.t')  => 'f',
      catfile($starter_dir, 't', 'pod.t')          => 'f',
+     catfile($starter_dir, 't', 'manifest.t')     => 'f',
      catfile($starter_dir, 'README')              => 'f',
      catfile($starter_dir, 'Changes')             => 'f',
      catfile($starter_dir, 'ignores.txt')         => 'f',

Modified: trunk/libmodule-starter-perl/t/test-dist.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-starter-perl/t/test-dist.t?rev=48505&op=diff
==============================================================================
--- trunk/libmodule-starter-perl/t/test-dist.t (original)
+++ trunk/libmodule-starter-perl/t/test-dist.t Wed Dec  9 21:27:32 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 469;
+use Test::More tests => 471;
 
 use Module::Starter;
 use File::Spec;
@@ -424,7 +424,7 @@
     # TEST:$cnt++
     $self->parse_paras(
         [
-            "=head1 FUNCTIONS",
+            "=head1 SUBROUTINES/METHODS",
             "=head2 function1",
             "=cut",
             "sub function1 {\n}",
@@ -532,7 +532,7 @@
     # TEST:$cnt++
     $self->parse_paras(
         [
-            "=head1 COPYRIGHT & LICENSE",
+            "=head1 LICENSE AND COPYRIGHT",
             { re =>
                   q/Copyright \d+ /
                 . quotemeta($author_name)
@@ -688,12 +688,39 @@
 lib/MyModule/Test.pm
 lib/MyModule/Test/App.pm
 t/00-load.t
+t/manifest.t
 t/pod-coverage.t
 t/pod.t
 EOF
 
         # TEST
         $manifest->is_end("MANIFEST - that's all folks!");
+    }
+
+    {
+        my $manifest_t = TestParseFile->new( {
+            fn => File::Spec->catfile( $module_base_dir, 't', 'manifest.t' )
+        } );
+
+        my $minimal_test_checkmanifest = '0.9';
+        $manifest_t->consume( <<"EOF", 'manifest.t - contents' );
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+unless ( \$ENV{RELEASE_TESTING} ) {
+    plan( skip_all => "Author tests not required for installation" );
+}
+
+eval "use Test::CheckManifest $minimal_test_checkmanifest";
+plan skip_all => "Test::CheckManifest 0.9 required" if \$\@;
+ok_manifest();
+EOF
+
+        # TEST
+        $manifest_t->is_end('manifest.t - end.');
     }
 
     {
@@ -1059,6 +1086,7 @@
 lib/Book/Park/Mansfield/FannyPrice.pm
 lib/JAUSTEN/Utils.pm
 t/00-load.t
+t/manifest.t
 t/pod-coverage.t
 t/pod.t
 EOF
@@ -1259,6 +1287,7 @@
 lib/Book/Park/Mansfield/FannyPrice.pm
 lib/JAUSTEN/Utils.pm
 t/00-load.t
+t/manifest.t
 t/pod-coverage.t
 t/pod.t
 EOF
@@ -1459,6 +1488,7 @@
 lib/Book/Park/Mansfield/FannyPrice.pm
 lib/JAUSTEN/Utils.pm
 t/00-load.t
+t/manifest.t
 t/pod-coverage.t
 t/pod.t
 EOF




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