r53438 - in /trunk/dh-make-perl/lib: DhMakePerl.pm DhMakePerl/Command/dump_config.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Feb 28 22:14:29 2010
New Revision: 53438

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53438
Log:
move dump-config command in a submodule

Added:
    trunk/dh-make-perl/lib/DhMakePerl/Command/dump_config.pm
Modified:
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=53438&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sun Feb 28 22:14:29 2010
@@ -179,18 +179,14 @@
     die pod2usage(-message => "See `man 1 dh-make-perl' for details.\n") if $self->cfg->help;
     die "CPANPLUS support disabled, sorry" if $self->cfg->cpanplus;
 
-    if ( $self->cfg->command eq 'refresh-cache' ) {
+    if (   $self->cfg->command eq 'refresh-cache'
+        or $self->cfg->command eq 'dump-config' )
+    {
         my $cmd_mod = $self->cfg->command;
         $cmd_mod =~ s/-/_/g;
         require "DhMakePerl/Command/$cmd_mod.pm";
         bless $self, "DhMakePerl::Command::$cmd_mod";
         return $self->execute;
-    }
-
-    if ( $self->cfg->command eq 'dump-config' ) {
-        print $self->cfg->dump_config;
-
-        return 0;
     }
 
     $self->arch( $self->cfg->arch ) if $self->cfg->arch;

Added: trunk/dh-make-perl/lib/DhMakePerl/Command/dump_config.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/dump_config.pm?rev=53438&op=file
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/dump_config.pm (added)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/dump_config.pm Sun Feb 28 22:14:29 2010
@@ -1,0 +1,56 @@
+package DhMakePerl::Command::dump_config;
+
+=head1 NAME
+
+DhMakePerl::Command::dump_config - dh-make-perl dump-config implementation
+
+=cut
+
+use strict; use warnings;
+
+use base 'DhMakePerl';
+
+=head1 METHODS
+
+=over
+
+=item execute
+
+The main command entry point.
+
+=cut
+
+sub execute {
+    my $self = shift;
+
+    print $self->cfg->dump_config;
+
+    return 0;
+}
+
+=back
+
+=head1 COPYRIGHT & LICENSE
+
+=over
+
+=item Copyright (C) 2010 Damyan Ivanov <dmn at debian.org>
+
+=back
+
+This program is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License version 2 as published by the Free
+Software Foundation.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
+Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+=cut
+
+
+1;