diff --git a/lib/Redmine/DB.pm b/lib/Redmine/DB.pm index c09afbd0d97af396d542f6ff3c4a1dc015c1ca40..001b5a5e06ea04144157e6f28d71bbc5a00f44ff 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}; } }