cosmetics

lib/Redmine/DB.pm

@@ -6,8 +6,10 @@ use strict;
 sub new
 {
   my $class= shift;
+
   my $self={};
   bless $self, $class;
+
   $self->set (@_);
   $self;
 }
@@ -16,6 +18,7 @@ sub set
 {
   my $self= shift;
   my %par= @_;
+
   foreach my $an (keys %par) { $self->{$an}= $par{$an}; }
 }