|
Lines 39-54
our $metadata = {
Link Here
|
| 39 |
=cut |
39 |
=cut |
| 40 |
|
40 |
|
| 41 |
sub new { |
41 |
sub new { |
| 42 |
my ( $self, $params ) = @_; |
42 |
my ( $class, $args ) = @_; |
| 43 |
|
43 |
|
| 44 |
my $backend = { |
44 |
$args->{'metadata'} = $metadata; |
| 45 |
_logger => $params->{logger}, |
45 |
$args->{'_logger'} = $args->{logger}; |
| 46 |
_config => $params->{config}, |
46 |
$args->{'_config'} = $args->{config}; |
| 47 |
_plugin => $self, |
47 |
$args->{'_plugin'} = $class; |
| 48 |
}; |
|
|
| 49 |
|
48 |
|
| 50 |
bless $backend, $self; |
49 |
my $self = $class->SUPER::new($args); |
| 51 |
return $backend; |
50 |
return $self; |
| 52 |
} |
51 |
} |
| 53 |
|
52 |
|
| 54 |
=head2 capabilities |
53 |
=head2 capabilities |
| 55 |
- |
|
|