r56331 - in /trunk/dh-make-perl: Build.PL privinc/ privinc/My/ privinc/My/Builder.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Apr 17 20:20:17 2010
New Revision: 56331

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56331
Log:
use custom Builder class adding 'orig' target

Added:
    trunk/dh-make-perl/privinc/
    trunk/dh-make-perl/privinc/My/
    trunk/dh-make-perl/privinc/My/Builder.pm
Modified:
    trunk/dh-make-perl/Build.PL

Modified: trunk/dh-make-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/Build.PL?rev=56331&op=diff
==============================================================================
--- trunk/dh-make-perl/Build.PL (original)
+++ trunk/dh-make-perl/Build.PL Sat Apr 17 20:20:17 2010
@@ -1,8 +1,9 @@
 use strict;
 use warnings;
-use Module::Build;
+use lib qw(privinc);
+use My::Builder;
 
-my $builder = Module::Build->new(
+my $builder = My::Builder->new(
     module_name         => 'DhMakePerl',
     license             => 'gpl',
     requires            => {

Added: trunk/dh-make-perl/privinc/My/Builder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/privinc/My/Builder.pm?rev=56331&op=file
==============================================================================
--- trunk/dh-make-perl/privinc/My/Builder.pm (added)
+++ trunk/dh-make-perl/privinc/My/Builder.pm Sat Apr 17 20:20:17 2010
@@ -1,0 +1,21 @@
+package My::Builder;
+use strict;
+use warnings;
+
+use base qw(Module::Build);
+
+sub ACTION_orig {
+    my $self = shift;
+    $self->ACTION_manifest();
+    $self->ACTION_dist();
+    my $dn       = $self->dist_name;
+    my $ver      = $self->dist_version;
+    my $pkg_name = 'dh-make-perl';
+    rename "$dn-$ver.tar.gz", "../$pkg_name\_$ver.orig.tar.gz";
+    $self->ACTION_distclean;
+    unlink 'MANIFEST', 'MANIFEST.bak', 'META.yml';
+    print "../$pkg_name\_$ver.orig.tar.gz ready.\n";
+}
+
+1;
+