sub new my class shift my self bless self class Init variables self- c

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
sub new {
my $class = shift;
my $self = {};
bless($self,$class);
#Init variables;
$self->{'config'} = shift;
$self->{'data'} = {};
$self->{'keys'} = {};
$self->{'error'} = new SKT::ErrorHandler;
# Default value for worksheet index
if ( !exists $self->{config}->{worksheet} ) {$self->{config}->{worksheet} = 0 };
return $self;
}