use strict;
use warnings;

sub insert{
    my $self = shift;
    my $dbh  = shift;
    my $tabn = shift; 
    my %hunt = @_;
    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;