39 lines
858 B
Perl
39 lines
858 B
Perl
package Koha::Plugin::BackendClass;
|
|
|
|
use Modern::Perl;
|
|
|
|
use base qw(Koha::Plugins::Base);
|
|
|
|
our $VERSION = "v1.01";
|
|
our $metadata = {
|
|
name => 'BackendClass',
|
|
author => 'Koha Community',
|
|
description => 'Plugin testing backends as their own class',
|
|
date_authored => '2013-01-14',
|
|
date_updated => '2013-01-14',
|
|
minimum_version => '3.11',
|
|
maximum_version => undef,
|
|
version => $VERSION,
|
|
namespace => 'backend_class',
|
|
};
|
|
|
|
sub new {
|
|
my ( $class, $args ) = @_;
|
|
$args->{'metadata'} = $metadata;
|
|
my $self = $class->SUPER::new($args);
|
|
return $self;
|
|
}
|
|
|
|
sub ill_backend {
|
|
my ($self) = @_;
|
|
return 'BackendClass';
|
|
}
|
|
|
|
sub new_ill_backend {
|
|
my ( $self, $args ) = @_;
|
|
require Koha::Plugin::ILL::TestClass;
|
|
return Koha::Plugin::ILL::TestClass->new($args);
|
|
}
|
|
|
|
1;
|