Line 0
Link Here
|
|
|
1 |
package Koha::Plugin::CalcFineBadValue; |
2 |
|
3 |
use Modern::Perl; |
4 |
|
5 |
use base qw(Koha::Plugins::Base); |
6 |
|
7 |
our $VERSION = "0.0.1"; |
8 |
our $metadata = { |
9 |
name => 'Calc Fine Plugin', |
10 |
author => 'Kyle M Hall', |
11 |
description => 'Test plugin', |
12 |
date_authored => '2013-01-14', |
13 |
date_updated => '2013-01-14', |
14 |
minimum_version => '3.11', |
15 |
maximum_version => undef, |
16 |
version => $VERSION, |
17 |
namespace => 'calc_fine_bad_value', |
18 |
my_example_tag => 'find_me', |
19 |
}; |
20 |
|
21 |
sub new { |
22 |
my ( $class, $args ) = @_; |
23 |
$args->{'metadata'} = $metadata; |
24 |
my $self = $class->SUPER::new($args); |
25 |
return $self; |
26 |
} |
27 |
|
28 |
sub overwrite_calc_fine { |
29 |
my ( $self, $params ) = @_; |
30 |
|
31 |
return [ "a", "b" ]; |
32 |
} |
33 |
|
34 |
1; |