+ my @c = keys %$h;
+
+ my $sql = "INSERT INTO $table (" . join(',',@c) . ') values (' . join(',', map { '?' } 0 .. $#c) . ')';
+ warn $sql;
+ my $sth = $dbh->prepare($sql);
+ $sth->execute( map { $h->{$_} } @c );
+}
+
+sub ADSL : Job : MinProcesses(1) : MaxProcesses(5) : Decode(d_json) {
+ my ( $self, $job, $workload ) = @_;
+