# Description   : _init private method, should only be called by new to initialize a new object
# Operation     : $self->init(@array);
#
######################################################
                                                                             
sub _init {
    my $self = shift;
    if (@_) {
        my %initdata = @_;
        @$self{keys %initdata} = values %initdata;
    }
}