Koha/Exceptions.pm

   1 package Koha::Exceptions;
   2
   3 use Modern::Perl;
   4
   5 use Exception::Class (
   6
   7     'Koha::Exceptions::Exception' => {
   8         description => 'Something went wrong!',
   9     },
  10
  11     'Koha::Exceptions::DuplicateObject' => {
  12         isa => 'Koha::Exceptions::Exception',
  13         description => 'Same object already exists',
  14     },
  15
  16     'Koha::Exceptions::Virtualshelves::DuplicateObject' => {
  17         isa => 'Koha::Exceptions::DuplicateObject',
  18         description => "Duplicate shelf object",
  19     },
  20     'Koha::Exceptions::Virtualshelves::InvalidInviteKey' => {
  21         isa => 'Koha::Exceptions::Exception',
  22         description => 'Invalid key on accepting the share',
  23     },
  24     'Koha::Exceptions::Virtualshelves::InvalidKeyOnSharing' => {
  25         isa => 'Koha::Exceptions::Exception',
  26         description=> 'Invalid key on sharing a shelf',
  27     },
  28     'Koha::Exceptions::Virtualshelves::ShareHasExpired' => {
  29         isa => 'Koha::Exceptions::Exception',
  30         description=> 'Cannot share this shelf, the share has expired',
  31     },
  32     'Koha::Exceptions::Virtualshelves::UseDbAdminAccount' => {
  33         isa => 'Koha::Exceptions::Exception',
  34         description => "Invalid use of database administrator account",
  35     }
  36 );
  37
  38 1;