Vor dem Aufruf von Funktionen auf der Instanz $self muss $self ge-blesst werden.

diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm
index cdcf18f..7469451 100644 (file)
--- a/SL/ReportGenerator.pm
+++ b/SL/ReportGenerator.pm
@@ -48,9 +48,11 @@ sub new {
 
   $self->{data_present} = 0;
 
+  bless $self, $type;
+
   $self->set_options(@_) if (@_);
 
-  return bless $self, $type;
+  return $self;
 }
 
 sub set_columns {