21 lines
408 B
Perl
21 lines
408 B
Perl
package Koha::Exceptions::Authorization;
|
|
|
|
use Modern::Perl;
|
|
|
|
use Koha::Exception;
|
|
|
|
use Exception::Class (
|
|
|
|
'Koha::Exceptions::Authorization' => {
|
|
isa => 'Koha::Exception',
|
|
},
|
|
'Koha::Exceptions::Authorization::Unauthorized' => {
|
|
isa => 'Koha::Exceptions::Authorization',
|
|
description => 'Unauthorized',
|
|
fields => ['required_permissions']
|
|
},
|
|
|
|
);
|
|
|
|
1;
|