My guess is, like shmem suspects, that you (or Tkx) are somewhere freeing up an object which uses eval in its destructor, which cleans out $@, so you never notice the exeption.

Try::Tiny tries to prevent that, or you can code your eval like this:

my $ok = eval {
    ...
    $sth->execute();
    ...
    1;
};
if (! $ok) {
    print "Caught error: $@";
};
[download]