r50044 - /trunk/dh-make-perl/lib/DhMakePerl.pm

[carnil-guest at users.alioth.debian.org]

Author: carnil-guest
Date: Sun Jan  3 09:42:20 2010
New Revision: 50044

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50044
Log:
some layout cleanup for DhMakePerl.pm, alignments

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=50044&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sun Jan  3 09:42:20 2010
@@ -6,7 +6,7 @@
 use base 'Class::Accessor';
 use Pod::Usage;
 
-__PACKAGE__->mk_accessors( qw( cfg apt_contents main_dir meta ) );
+__PACKAGE__->mk_accessors(qw( cfg apt_contents main_dir meta ));
 
 =head1 NAME
 
@@ -40,11 +40,11 @@
 use Config qw( %Config );
 use CPAN ();
 use Cwd qw( getcwd );
-use Debian::AptContents ();
-use Debian::Control ();
+use Debian::AptContents       ();
+use Debian::Control           ();
 use Debian::Control::FromCPAN ();
-use Debian::Dependencies ();
-use Debian::Dependency ();
+use Debian::Dependencies      ();
+use Debian::Dependency        ();
 use Debian::Version qw(deb_ver_cmp);
 use Parse::DebianChangelog;
 use DhMakePerl::Config;
@@ -54,25 +54,24 @@
 use File::Copy qw( copy move );
 use File::Find qw( find );
 use File::Spec::Functions qw( catfile );
-use IO::File ();
-use Module::CoreList ();
+use IO::File                   ();
+use Module::CoreList           ();
 use Module::Depends::Intrusive ();
-use Module::Depends ();
+use Module::Depends            ();
 use Text::Wrap qw( fill wrap );
 use Tie::File;
 use User::pwent qw(:FIELDS);
 use WWW::Mechanize ();
-use YAML ();
+use YAML           ();
 use version qw( qv );
-
 
 # TODO:
 # * get more info from the package (maybe using CPAN methods)
 
-my ($oldest_perl_version,
-    $debstdversion, $priority,  $section,
-    $depends,          $bdepends,      $bdependsi, $maintainer,
-    $arch,             $closes,        $date,      $debiandir,
+my ($oldest_perl_version, $debstdversion, $priority,
+    $section,             $depends,       $bdepends,
+    $bdependsi,           $maintainer,    $arch,
+    $closes,              $date,          $debiandir,
     $startdir,
 );
 our %overrides;
@@ -111,7 +110,7 @@
 
 # use Array::Unique for @docs and @examples
 tie @examples, 'Array::Unique';
-tie @docs, 'Array::Unique';
+tie @docs,     'Array::Unique';
 
 my $mod_cpan_version;