The database I'm using is Postgres, and the table I'm trying to work off is set up so the id field is automatically set for me. I know it's trying to do something since if I miss out a required field it throws errors, and also if I try and load an invalid value such as a string into a numeric field. The sequence number Postgres uses to base new entries off is also incrementing. There currently aren't any constraints set up in the database itself, and the data used in the test program inserts no problem from the command line psql program.

The class works fine for reading the contents of the database too. Is it possible that Class::DBI is somehow creating the row and then deleting it again?

A cut-down test version of the code:

#!/usr/bin/perl

use strict;
use warnings;
use Class::DBI;

# Declare a base class for us.  Gallery::Class::DBI
package Gallery::Class::DBI;
use base 'Class::DBI';
Gallery::Class::DBI->set_db('Main', 'dbi:Pg:dbname=database', 'user','
+password');

# Basic image declaration.
package Gallery::Image;
use base 'Gallery::Class::DBI';
Gallery::Image->table('gallery_images');
Gallery::Image->columns(All => qw/id title author height width filenam
+e gallery/);

# Do a creation.
my $image = Gallery::Image->create({
  title => 'Test',
  author => 1,
  height => 100,
  width => 100,
  filename => 'test.jpg',
  gallery => 1,
});
$image->commit;
[download]

The Postgres SQL used to create the table:

CREATE TABLE gallery_images (
  id SERIAL NOT NULL PRIMARY KEY,
  title TEXT,
  author INT NOT NULL,
  width INT,
  height INT,
  filename TEXT NOT NULL,
  gallery INT
);
[download]