Lines 40-45
use Exception::Class (
Link Here
|
40 |
'Koha::Exceptions::Object::PropertyNotFound' => { |
40 |
'Koha::Exceptions::Object::PropertyNotFound' => { |
41 |
isa => 'Koha::Exceptions::Object', |
41 |
isa => 'Koha::Exceptions::Object', |
42 |
description => "Invalid property", |
42 |
description => "Invalid property", |
|
|
43 |
fields => ['property', 'clause'], |
43 |
}, |
44 |
}, |
44 |
'Koha::Exceptions::Object::ReadOnlyProperty' => { |
45 |
'Koha::Exceptions::Object::ReadOnlyProperty' => { |
45 |
isa => 'Koha::Exceptions::Object', |
46 |
isa => 'Koha::Exceptions::Object', |
Lines 84-89
sub full_message {
Link Here
|
84 |
elsif ( $self->isa('Koha::Exceptions::Object::NotInstantiated') ) { |
85 |
elsif ( $self->isa('Koha::Exceptions::Object::NotInstantiated') ) { |
85 |
$msg = sprintf("Tried to access the '%s' method, but %s is not instantiated", $self->method, $self->class ); |
86 |
$msg = sprintf("Tried to access the '%s' method, but %s is not instantiated", $self->method, $self->class ); |
86 |
} |
87 |
} |
|
|
88 |
elsif ( $self->isa('Koha::Exceptions::Object::PropertyNotFound') ) { |
89 |
$msg = sprintf("Invalid property '%s' in '%s' clause", $self->property, $self->clause ); |
90 |
} |
87 |
} |
91 |
} |
88 |
|
92 |
|
89 |
return $msg; |
93 |
return $msg; |