use strict;
use warnings;


sub insert{
    my $self = shift;        # Instanz einer beliebigen Klasse
    my $dbh  = shift;        # DB Handle
    my $tabn = shift;        # Tabname
    my %hunt = @_;           # field => value
    my @fields = keys %hunt;
    $dbh->do(qq(
        INSERT INTO @{[$dbh->quote_identifier($tabn)]} (@{[join ',', map{$dbh->quote_identifier($_)}@fields]}) 
        VALUES( @{[join ',', map{$dbh->quote($_)}@hunt{@fields}]} )
    ));
}

1;