18 lines
434 B
Perl
18 lines
434 B
Perl
package Koha::Exceptions::Patron;
|
|
|
|
use Modern::Perl;
|
|
|
|
use Exception::Class (
|
|
'Koha::Exceptions::Patron' => {
|
|
description => "Something went wrong!"
|
|
},
|
|
'Koha::Exceptions::Patron::FailedDelete' => {
|
|
description => "Deleting patron failed"
|
|
},
|
|
'Koha::Exceptions::Patron::FailedDeleteAnonymousPatron' => {
|
|
description => "Deleting patron failed, AnonymousPatron is not deleteable"
|
|
},
|
|
);
|
|
|
|
1;
|