@@ -, +, @@ class --- Koha/Exceptions/Account.pm | 4 +++- Koha/Exceptions/Acquisition/Basket.pm | 4 +++- Koha/Exceptions/ArticleRequest.pm | 6 ++++-- Koha/Exceptions/Authentication.pm | 4 +++- Koha/Exceptions/Authorization.pm | 4 +++- Koha/Exceptions/Checkout.pm | 4 +++- Koha/Exceptions/Checkouts/ReturnClaims.pm | 1 - Koha/Exceptions/ClubHold.pm | 4 +++- Koha/Exceptions/Config.pm | 4 +++- Koha/Exceptions/Elasticsearch.pm | 4 +++- Koha/Exceptions/Ill.pm | 4 +++- Koha/Exceptions/Item/Transfer.pm | 4 +++- Koha/Exceptions/Library.pm | 4 +++- Koha/Exceptions/MarcOverlayRule.pm | 4 +++- Koha/Exceptions/Metadata.pm | 4 +++- Koha/Exceptions/Password.pm | 4 +++- Koha/Exceptions/Patron.pm | 4 +++- Koha/Exceptions/Patron/Attribute.pm | 4 +++- Koha/Exceptions/Patron/Attribute/Type.pm | 4 +++- Koha/Exceptions/Patron/Modification.pm | 4 +++- Koha/Exceptions/Patron/Relationship.pm | 4 +++- Koha/Exceptions/Token.pm | 4 +++- Koha/Exceptions/TransferLimit.pm | 4 +++- 23 files changed, 67 insertions(+), 24 deletions(-) --- a/Koha/Exceptions/Account.pm +++ a/Koha/Exceptions/Account.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::Account; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Account' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Account::IsNotCredit' => { isa => 'Koha::Exceptions::Account', --- a/Koha/Exceptions/Acquisition/Basket.pm +++ a/Koha/Exceptions/Acquisition/Basket.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::Acquisition::Basket; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Acquisition::Basket' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Acquisition::Basket::AlreadyClosed' => { isa => 'Koha::Exceptions::Acquisition::Basket', --- a/Koha/Exceptions/ArticleRequest.pm +++ a/Koha/Exceptions/ArticleRequest.pm @@ -17,9 +17,11 @@ package Koha::Exceptions::ArticleRequest; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::ArticleRequest' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::ArticleRequest::LimitReached' => { isa => 'Koha::Exceptions::ArticleRequest', @@ -43,4 +45,4 @@ Exception to be used when the article request limit has been reached. =cut -1; +1; --- a/Koha/Exceptions/Authentication.pm +++ a/Koha/Exceptions/Authentication.pm @@ -2,10 +2,12 @@ package Koha::Exceptions::Authentication; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Authentication' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Authentication::Required' => { isa => 'Koha::Exceptions::Authentication', --- a/Koha/Exceptions/Authorization.pm +++ a/Koha/Exceptions/Authorization.pm @@ -2,10 +2,12 @@ package Koha::Exceptions::Authorization; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Authorization' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Authorization::Unauthorized' => { isa => 'Koha::Exceptions::Authorization', --- a/Koha/Exceptions/Checkout.pm +++ a/Koha/Exceptions/Checkout.pm @@ -2,9 +2,11 @@ package Koha::Exceptions::Checkout; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Checkout' => { - description => "Something went wrong!" + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Checkout::FailedRenewal' => { isa => 'Koha::Exceptions::Checkout', --- a/Koha/Exceptions/Checkouts/ReturnClaims.pm +++ a/Koha/Exceptions/Checkouts/ReturnClaims.pm @@ -22,7 +22,6 @@ use Koha::Exceptions::Exception; use Exception::Class ( 'Koha::Exceptions::Checkouts::ReturnClaims' => { isa => 'Koha::Exceptions::Exception', - description => 'Something went wrong!', }, 'Koha::Exceptions::Checkouts::ReturnClaims::NoCreatedBy' => { isa => 'Koha::Exceptions::Checkouts::ReturnClaims', --- a/Koha/Exceptions/ClubHold.pm +++ a/Koha/Exceptions/ClubHold.pm @@ -2,9 +2,11 @@ package Koha::Exceptions::ClubHold; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::ClubHold' => { - description => "Something went wrong!", + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::ClubHold::NoPatrons' => { isa => 'Koha::Exceptions::ClubHold', --- a/Koha/Exceptions/Config.pm +++ a/Koha/Exceptions/Config.pm @@ -2,10 +2,12 @@ package Koha::Exceptions::Config; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Config' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Config::MissingEntry' => { isa => 'Koha::Exceptions::Config', --- a/Koha/Exceptions/Elasticsearch.pm +++ a/Koha/Exceptions/Elasticsearch.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::Elasticsearch; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Elasticsearch' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Elasticsearch::BadResponse' => { isa => 'Koha::Exceptions::Elasticsearch', --- a/Koha/Exceptions/Ill.pm +++ a/Koha/Exceptions/Ill.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::Ill; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Ill' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Ill::InvalidBackendId' => { isa => 'Koha::Exceptions::Ill', --- a/Koha/Exceptions/Item/Transfer.pm +++ a/Koha/Exceptions/Item/Transfer.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::Item::Transfer; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Item::Transfer' => { - description => 'Something went wrong' + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Item::Transfer::InQueue' => { isa => 'Koha::Exceptions::Item::Transfer', --- a/Koha/Exceptions/Library.pm +++ a/Koha/Exceptions/Library.pm @@ -2,10 +2,12 @@ package Koha::Exceptions::Library; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Library::Exception' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Library::NotFound' => { --- a/Koha/Exceptions/MarcOverlayRule.pm +++ a/Koha/Exceptions/MarcOverlayRule.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::MarcOverlayRule; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::MarcOverlayRule' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::MarcOverlayRule::InvalidTagRegExp' => { isa => 'Koha::Exceptions::MarcOverlayRule', --- a/Koha/Exceptions/Metadata.pm +++ a/Koha/Exceptions/Metadata.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::Metadata; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Metadata' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Metadata::Invalid' => { isa => 'Koha::Exceptions::Metadata', --- a/Koha/Exceptions/Password.pm +++ a/Koha/Exceptions/Password.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::Password; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Password' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Password::Invalid' => { isa => 'Koha::Exceptions::Password', --- a/Koha/Exceptions/Patron.pm +++ a/Koha/Exceptions/Patron.pm @@ -2,9 +2,11 @@ package Koha::Exceptions::Patron; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Patron' => { - description => "Something went wrong!" + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Patron::FailedDelete' => { isa => 'Koha::Exceptions::Patron', --- a/Koha/Exceptions/Patron/Attribute.pm +++ a/Koha/Exceptions/Patron/Attribute.pm @@ -2,10 +2,12 @@ package Koha::Exceptions::Patron::Attribute; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Patron::Attribute' => { - description => 'Something went wrong' + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Patron::Attribute::InvalidType' => { isa => 'Koha::Exceptions::Patron::Attribute', --- a/Koha/Exceptions/Patron/Attribute/Type.pm +++ a/Koha/Exceptions/Patron/Attribute/Type.pm @@ -2,10 +2,12 @@ package Koha::Exceptions::Patron::Attribute::Type; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Patron::Attribute::Type' => { - description => 'Something went wrong' + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Patron::Attribute::Type::CannotChangeProperty' => { isa => 'Koha::Exceptions::Patron::Attribute::Type', --- a/Koha/Exceptions/Patron/Modification.pm +++ a/Koha/Exceptions/Patron/Modification.pm @@ -2,10 +2,12 @@ package Koha::Exceptions::Patron::Modification; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Patron::Modification' => { - description => 'Something went wrong' + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Patron::Modification::DuplicateVerificationToken' => { isa => 'Koha::Exceptions::Patron::Modification', --- a/Koha/Exceptions/Patron/Relationship.pm +++ a/Koha/Exceptions/Patron/Relationship.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::Patron::Relationship; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Patron::Relationship' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Patron::Relationship::DuplicateRelationship' => { isa => 'Koha::Exceptions::Patron::Relationship', --- a/Koha/Exceptions/Token.pm +++ a/Koha/Exceptions/Token.pm @@ -17,9 +17,11 @@ package Koha::Exceptions::Token; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::Token' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::Token::BadPattern' => { isa => 'Koha::Exceptions::Token', --- a/Koha/Exceptions/TransferLimit.pm +++ a/Koha/Exceptions/TransferLimit.pm @@ -17,10 +17,12 @@ package Koha::Exceptions::TransferLimit; use Modern::Perl; +use Koha::Exceptions::Exception; + use Exception::Class ( 'Koha::Exceptions::TransferLimit::Exception' => { - description => 'Something went wrong!', + isa => 'Koha::Exceptions::Exception', }, 'Koha::Exceptions::TransferLimit::Duplicate' => { --