Revision 202433bf
Von Bernd Bleßmann vor etwa 2 Jahren hinzugefügt
| SL/Helper/Csv.pm | ||
|---|---|---|
|
local $::myconfig{numberformat} = $self->numberformat if $self->numberformat;
|
||
|
local $::myconfig{dateformat} = $self->dateformat if $self->dateformat;
|
||
|
|
||
|
my $line_nr = 0;
|
||
|
for my $line (@{ $self->_data }) {
|
||
|
my $tmp_obj = $self->dispatcher->dispatch($line);
|
||
|
push @objs, $tmp_obj;
|
||
|
$line_nr++;
|
||
|
eval {
|
||
|
my $tmp_obj = $self->dispatcher->dispatch($line);
|
||
|
push @objs, $tmp_obj;
|
||
|
1;
|
||
|
} or do {
|
||
|
$self->_push_error([
|
||
|
$line,
|
||
|
0,
|
||
|
"making objects failed: $@",
|
||
|
0,
|
||
|
$line_nr]);
|
||
|
};
|
||
|
}
|
||
|
|
||
|
$self->_objects(\@objs);
|
||
| ... | ... | |
|
|
||
|
This method will return an arrayref of all objects.
|
||
|
|
||
|
If an error occurs while making the objects, it is put errors, too.
|
||
|
|
||
|
=item C<get_data>
|
||
|
|
||
|
Returns an arrayref of the raw lines as hashrefs.
|
||
|
|
||
|
=item C<errors>
|
||
|
|
||
|
Return all errors that came up during parsing. See error handling for detailed
|
||
|
information.
|
||
|
Return all errors that came up during parsing or making objects.
|
||
|
See error handling for detailed information.
|
||
|
|
||
|
=back
|
||
|
|
||
| ... | ... | |
|
Error handling is also known to break on new Perl versions and need to be
|
||
|
adjusted from time to time due to changes in Text::CSV_XS.
|
||
|
|
||
|
If an error occurs while making the objects, it is put into errors, too.
|
||
|
Here the line is also an estimation.
|
||
|
|
||
|
=head1 CAVEATS
|
||
|
|
||
|
=over 4
|
||
Auch abrufbar als: Unified diff
CSV-Helper: Fehler beim Erstellen der Objekte in Fehlerobjekt speichern