From ca4c7b48afd178248ad7a7963f6073458a412ed7 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 13 Sep 2016 14:53:47 +0200
Subject: [PATCH] cosmetics
---
lib/Redmine/DB.pm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/lib/Redmine/DB.pm b/lib/Redmine/DB.pm
index c09afbd..001b5a5 100644
--- a/lib/Redmine/DB.pm
+++ b/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}; }
}
--
GitLab