View | Details | Raw Unified | Return to bug 7417
Collapse All | Expand All

(-)a/Koha/RecordProcessor.pm (-3 / +5 lines)
Lines 58-69 clone it I<prior> to passing it off to the RecordProcessor. Link Here
58
=cut
58
=cut
59
59
60
use Modern::Perl;
60
use Modern::Perl;
61
use Class::Accessor "antlers";
61
use Module::Load::Conditional qw(can_load);
62
use Module::Load::Conditional qw(can_load);
62
use Module::Pluggable::Object;
63
use Module::Pluggable::Object;
63
64
64
use base qw(Class::Accessor);
65
has schema => ( is => "rw" );
65
66
has filters => ( is => "rw" );
66
__PACKAGE__->mk_accessors(qw( schema filters options record ));
67
has options => ( is => "rw" );
68
has record => ( is => "rw" );
67
69
68
=head2 new
70
=head2 new
69
71
(-)a/Koha/RecordProcessor/Base.pm (-6 / +5 lines)
Lines 59-69 clone it I<prior> to passing it off to the RecordProcessor. Link Here
59
=cut
59
=cut
60
60
61
use Modern::Perl;
61
use Modern::Perl;
62
use Class::Accessor "antlers";
62
63
63
use base qw(Class::Accessor);
64
has name => ( is => "ro" );
65
has version => ( is => "ro" );
66
has params => ( is => "rw" );
64
67
65
__PACKAGE__->mk_ro_accessors(qw( name version ));
66
__PACKAGE__->mk_accessors(qw( params ));
67
our $NAME = 'Base';
68
our $NAME = 'Base';
68
our $VERSION = '1.0';
69
our $VERSION = '1.0';
69
70
Lines 78-85 Create a new filter; Link Here
78
sub new {
79
sub new {
79
    my $class = shift;
80
    my $class = shift;
80
81
81
    my $self = $class->SUPER::new( { });#name => $class->NAME,
82
    my $self = $class->SUPER::new( { });
82
                                     #version => $class->VERSION });
83
83
84
    bless $self, $class;
84
    bless $self, $class;
85
    return $self;
85
    return $self;
86
- 

Return to bug 7417