Select Code to Download

#!/usr/bin/perl
use strict;
...
                 } catch { $_ };

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

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

 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::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/s
+hare/perl5/DBIx/Class/ResultSet.pm line 2196
        DBIx::Class::ResultSet::create('DBIx::Class::ResultSet=HASH(0x
+1e3ad80)', 'HASH(0x1c4dcb8)') called at tmp.pl line 18

my $bad_result;
eval {
...
                  last_name  => 'Testing', 
                });        
};

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