Perl DBI HandleError

perlDbiHandleError.pl

my $dbh = DBI->connect(
    'dbi:Pg:dbname=DATABASE_NAME',
    q{},
    q{},
    {
        RaiseError         => 1,
        AutoCommit         => 0,
        PrintError         => 0,
        ShowErrorStatement => 1,
        HandleError        => sub {
            my $errormsg = shift;
            my $handle   = shift;
            my $dbh;
            my $type = $handle->{'Type'};
            if ($type eq 'st') {
                $dbh = $handle->{'Database'};
            } elsif ($type eq 'db') {
                $dbh = $handle;
            } else {
                warn "Unknown handle type: $type";
                confess $errormsg;
            }
            $dbh->rollback;
            confess $errormsg;
        }
    }
);
# No check needed
$sth->execute;