[Bps-public-commit] r18546 - Shipwright/trunk/lib

[jesse at bestpractical.com]

Author: jesse
Date: Mon Feb 23 21:01:14 2009
New Revision: 18546

Modified:
   Shipwright/trunk/lib/Shipwright.pm

Log:
Start explicitly specifying args to functions in Shipwright.pm

Modified: Shipwright/trunk/lib/Shipwright.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright.pm	(original)
+++ Shipwright/trunk/lib/Shipwright.pm	Mon Feb 23 21:01:14 2009
@@ -18,11 +18,16 @@
 sub new {
     my $class = shift;
 
-    my %args = @_;
+    my %args = (
+        log_level  => undef,
+        log_file   => undef,
+        repository => undef,
+        source     => undef,
+        @_
+    );
     $args{log_level} = uc $args{log_level} || 'FATAL';
 
     unless ( $args{log_file} ) {
-
         # a better named log_file, in the name of repository
         my $info = join '', map { /\w/ ? $_ : '_' } split //, $args{repository};
         $args{log_file} = catfile( tmpdir(), "shipwright_$info.log" );