Und zum Vermeiden von CODE Redundanzen hätte ich noch eine Universalfunktion anzubieten. Der Aufruf sieht so aus:
use strict;
use warnings;
use insert;
use dbh;
my $mock = bless{}; # Attrappe
my $dbh = $mock->dbh('myweb'); # Verbindung mit DB by Name
$mock->insert($dbh, 'log', url => "/index.html", hugo => 'asdf');
ALso eine universelle Insert-Methode für Instanzen beliebiger Klassen (mock). Übergeben wird die Instanz, die DB-Verbindung, der Tabellenname und ein assoziatives Array mit col=>value
Pairs.
Solch eine Universalfunktion ist nicht nur auf Perl beschränkt. Falls es eine auto_increment Spalte gibt, ist Last_Insert_Id() der Return Value. Fehlerbehandlung per Exception.
Nur als Idee. MFG