Revision 6bdcd838
Von Moritz Bunkus vor etwa 5 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 249 | 249 |
|
| 250 | 250 |
sub throw_on_error {
|
| 251 | 251 |
my ($self, $code) = @_; |
| 252 |
local $self->{__ERROR_HANDLER} = sub { die SL::X::FormError->new($_[0]) };
|
|
| 252 |
local $self->{__ERROR_HANDLER} = sub { SL::X::FormError->throw(error => $_[0]) };
|
|
| 253 | 253 |
$code->(); |
| 254 | 254 |
} |
| 255 | 255 |
|
| ... | ... | |
| 311 | 311 |
sub dberror {
|
| 312 | 312 |
my ($self, $msg) = @_; |
| 313 | 313 |
|
| 314 |
die SL::X::DBError->new(
|
|
| 315 |
msg => $msg, |
|
| 316 |
error => $DBI::errstr, |
|
| 314 |
SL::X::DBError->throw(
|
|
| 315 |
msg => $msg,
|
|
| 316 |
db_error => $DBI::errstr,
|
|
| 317 | 317 |
); |
| 318 | 318 |
} |
| 319 | 319 |
|
Auch abrufbar als: Unified diff
Module: Exception::Lite durch Exception::Class ersetzt