|
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; |