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