Revision dcd6ce29
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Helper/Csv.pm | ||
|---|---|---|
| 6 | 6 |
use Carp; |
| 7 | 7 |
use IO::File; |
| 8 | 8 |
use Params::Validate qw(:all); |
| 9 |
use Text::CSV; |
|
| 9 |
use Text::CSV_XS;
|
|
| 10 | 10 |
use Rose::Object::MakeMethods::Generic scalar => [ qw( |
| 11 | 11 |
file encoding sep_char quote_char escape_char header profile class |
| 12 | 12 |
numberformat dateformat ignore_unknown_columns strict_profile _io _csv |
| ... | ... | |
| 39 | 39 |
$self->$_($params{$_}) for keys %params;
|
| 40 | 40 |
|
| 41 | 41 |
$self->_io(IO::File->new); |
| 42 |
$self->_csv(Text::CSV->new({
|
|
| 42 |
$self->_csv(Text::CSV_XS->new({
|
|
| 43 | 43 |
binary => 1, |
| 44 | 44 |
sep_char => $self->sep_char, |
| 45 | 45 |
quote_char => $self->quote_char, |
Auch abrufbar als: Unified diff
Text::CSV_XS wird vorausgesetzt, nicht Text::CSV