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