sub get { my ($self,$arg_ref) = @_; my $prefix = $prefix_of{ident $self}; ### get needed parameters: my @values = $arg_ref->{'values'}; # ARRAY: value1, value2,... my $table = $arg_ref->{'table'}; # string my $where = $arg_ref->{'where'}; # sql-string, opt my $sort = $arg_ref->{'sort'}; # sql-string, opt ### check if alle values are filled in: if(!@values || !$table) { croak qq{ MySQL Error: Not all needed params (value, table) are specified! value: @values table: $table }; } ### transform values to my $sql_formed_values = join '`,`', @values; die $sql_formed_values; #testing }