#!/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";

##</code><code>##

Overhaul::DB::Schema::Result::track::Result: Validation failed.
{
  'first_name' => [
    'First name is required'
  ]
}

##</code><code>##

 at /usr/local/share/perl5/DBIx/Class/Result/Validation.pm line 214
 at /usr/local/share/perl5/DBIx/Class/Result/Validation.pm line 208
        DBIx::Class::Result::Validation::__ANON__('Overhaul::DB::Schema::Result::track::Result: Validation faile...') called at /usr/local/share/perl5/Try/Tiny.pm line 100
        Try::Tiny::try('CODE(0x1e3ab10)', 'Try::Tiny::Catch=REF(0x1933640)') called at /usr/local/share/perl5/DBIx/Class/Result/Validation.pm line 214
        DBIx::Class::Result::Validation::_try_next_method('Overhaul::DB::Schema::Result::track::Result=HASH(0x1e3ad98)', 'CODE(0xc591f0)', undef) called at /usr/local/share/perl5/DBIx/Class/Result/Validation.pm line 169
        DBIx::Class::Result::Validation::insert('Overhaul::DB::Schema::Result::track::Result=HASH(0x1e3ad98)', undef) called at Overhaul/DB/Schema/Result/track/Result.pm line 62
        Overhaul::DB::Schema::Result::track::Result::insert('Overhaul::DB::Schema::Result::track::Result=HASH(0x1e3ad98)') called at /usr/share/perl5/DBIx/Class/ResultSet.pm line 2196
        DBIx::Class::ResultSet::create('DBIx::Class::ResultSet=HASH(0x1e3ad80)', 'HASH(0x1c4dcb8)') called at tmp.pl line 18

##</code><code>##

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

##</code><code>##

 Create failed: Overhaul::DB::Schema::Result::track::Result: Validation failed.
{
  'first_name' => [
    'First name is required'
  ]
}
 at /usr/local/share/perl5/DBIx/Class/Result/Validation.pm line 214