|
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; |