Lines 355-361
$PARAMS, or 0 if $CANDIDATE is an unknown method on backend.
Link Here
|
355 |
|
355 |
|
356 |
sub custom_capability { |
356 |
sub custom_capability { |
357 |
my ( $self, $candidate, $params ) = @_; |
357 |
my ( $self, $candidate, $params ) = @_; |
358 |
foreach my $capability ( values $self->capabilities ) { |
358 |
foreach my $capability ( values %{$self->capabilities} ) { |
359 |
if ( $candidate eq $capability->{method} ) { |
359 |
if ( $candidate eq $capability->{method} ) { |
360 |
my $response = |
360 |
my $response = |
361 |
$self->_backend->$candidate({ |
361 |
$self->_backend->$candidate({ |
Lines 372-379
sub available_backends {
Link Here
|
372 |
my ( $self ) = @_; |
372 |
my ( $self ) = @_; |
373 |
my $backend_dir = $self->_config->backend_dir; |
373 |
my $backend_dir = $self->_config->backend_dir; |
374 |
my @backends = (); |
374 |
my @backends = (); |
375 |
my @backends = <$backend_dir/*> if ( $backend_dir ); |
375 |
@backends = <$backend_dir/*> if ( $backend_dir ); |
376 |
my @backends = map { basename($_) } @backends; |
376 |
@backends = map { basename($_) } @backends; |
377 |
return \@backends; |
377 |
return \@backends; |
378 |
} |
378 |
} |
379 |
|
379 |
|
380 |
- |
|
|