package Foo;
...
our $error;
*DBI::carp = sub { $Foo::error = shift };
...
my $self->{dbh} = DBI->connect( ... ) or carp $error;
[download]

Lbh ebgngrq guvf grkg naq abj lbh pna ernq vg. Fb jung? :)   -- Whreq
[download]