_specs _errors
) ];
+use SL::Helper::Csv::Error;
+
sub new {
my ($class, $parent) = @_;
my $self = bless { }, $class;
sub _push_error {
my ($self, @errors) = @_;
- my @new_errors = ($self->errors, @errors);
+ my @new_errors = ($self->errors, map { SL::Helper::Csv::Error->new(@$_) } @errors);
$self->_errors(\@new_errors);
}