View | Details | Raw Unified | Return to bug 7317
Collapse All | Expand All

(-)a/Koha/Illrequest.pm (-1 / +26 lines)
Lines 28-33 use Koha::Illrequest; Link Here
28
use Koha::Illrequestattributes;
28
use Koha::Illrequestattributes;
29
use Koha::Patron;
29
use Koha::Patron;
30
use Mail::Sendmail;
30
use Mail::Sendmail;
31
use Try::Tiny;
31
32
32
use base qw(Koha::Object);
33
use base qw(Koha::Object);
33
34
Lines 157-162 sub _backend { Link Here
157
    return $self->{_my_backend};
158
    return $self->{_my_backend};
158
}
159
}
159
160
161
=head3 _backend_capability
162
163
    my $backend_capability_result = $self->_backend_capability($name, $args);
164
165
This is a helper method to invoke optional capabilities in the backend.  If
166
the capability named by $name is not supported, return 0, else invoke it,
167
passing $args along with the invocation, and return its return value.
168
169
=cut
170
171
sub _backend_capability {
172
    my ( $self, $name, $args ) = @_;
173
    my $capability = 0;
174
    try {
175
        $capability = $self->_backend->capabilities($name);
176
    } catch {
177
        return 0;
178
    };
179
    if ( $capability ) {
180
        return $capability($args);
181
    } else {
182
        return 0;
183
    }
184
}
185
160
=head3 _config
186
=head3 _config
161
187
162
    my $config = $abstract->_config($config);
188
    my $config = $abstract->_config($config);
163
- 

Return to bug 7317