my $schema = SMU::Schema->connect("dbi:Oracle:SMU", "user", "pw") or die $!;

# find row with id=1 and return as object
my $h1 = $schema->resultset('Hubba')->find(1); 

# persist new object
$schema->resultset('Hubba')->create( {
                                       id => 2,
                                       a => "blah",
                                       b => "blubb",
                                      });