This question still hasn't been answered. I would like to do the same:

    package A;
    use DBI;
    @CARP_NOT = "DBI"; # doesn't work
    sub foo {
        my $dbh = DBI->connect(..., {RaiseError => 1});
        my $sth = $dbh->prepare("asdf");
        $sth->execute; # bang!
    }
[download]

I would like the following to report the error from the caller, but I cant find the right way to do it.