#!/usr/bin/perl
use strict;
use Overhaul::DB;

my $dbx = Overhaul::DB->new('track');
my $schema = $dbx->schema;

# this works as expected
my $valid_result = $schema->resultset('track::Result')->create({
                     first_name => 'Clive',
                     last_name  => 'Testing',
                   });
$valid_result->delete;

my $bad_result = try { $schema->resultset('track::Result')->create({
                         last_name  => 'Testing',
                       });
                 } catch { $_ };

print "**************** We made it to here\n";