Refactoring: SL::Template: Parameterübergabe als Hash, nicht positionsabhängig

[mfinanz.git] / SL / Template / Simple.pm

diff --git a/SL/Template/Simple.pm b/SL/Template/Simple.pm
index be5ba8b5db1beecc82178200fcdff44f9a030625..8696796bc914b40681cf5e6c379885abf8ff87b4 100644 (file)
--- a/SL/Template/Simple.pm
+++ b/SL/Template/Simple.pm
@@ -30,12 +30,9 @@ sub new {
 }
 
 sub _init {
-  my $self = shift;
+  my ($self, %params) = @_;
 
-  $self->{source}    = shift;
-  $self->{form}      = shift;
-  $self->{myconfig}  = shift;
-  $self->{userspath} = shift;
+  $self->{$_} = $params{$_} for keys %params;
 
   $self->{error}     = undef;
   $self->{quot_re}   = '"';