projekt kivitendo

use Text::CSV;

use Params::Validate qw(:all);

use Rose::Object::MakeMethods::Generic scalar => [ qw(

   numberformat dateformat _io _csv _objects _parsed _data _errors

) ];

    quote_char    => { default => '"' },

    escape_char   => { default => '"' },

    header        => { type    => ARRAYREF, optional => 1 },

    file          => 1,

    encoding      => 0,

    class         => 0,

  my $header = $self->_csv->getline($self->_io);

  $self->header($header);

}

sub _real_method {

  my ($self, $arg) = @_;

}

sub _guess_encoding {

    sep_char    => ',',     # default ';'

    quote_char  => ''',     # default '"'

    header      => [qw(id text sellprice word)] # see later

    class       => 'SL::DB::CsvLine',   # if present, map lines to this

  )

Can be an array of columns, in this case the first line is not used as a

header. Empty header fields will be ignored in objects.

May be used to map header fields to custom accessors. Example:

 $csv = SL::Helper::Csv->new(

   file  => ...

   class => SL::DB::Part,

     makemodel => {

       make_1  => make,

       model_1 => model,