projekt kivitendo

use Params::Validate qw(:all);

use Text::CSV_XS;

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

  numberformat dateformat ignore_unknown_columns strict_profile _io _csv

  _objects _parsed _data _errors all_cvar_configs case_insensitive_header

) ];

    profile                => { type    => HASHREF,  optional => 1 },

    file                   => 1,

    encoding               => 0,

    numberformat           => 0,

    dateformat             => 0,

    ignore_unknown_columns => 0,

sub get_objects {

  my ($self, %params) = @_;

  croak 'must parse first' unless $self->_parsed;

  $self->_make_objects unless $self->_objects;

  my ($self, %params) = @_;

  my @objs;

  local $::myconfig{numberformat} = $self->numberformat if $self->numberformat;

  local $::myconfig{dateformat}   = $self->dateformat   if $self->dateformat;

  for my $line (@{ $self->_data }) {

    push @objs, $tmp_obj;

  }

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

    escape_char => '"',     # default '"'

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

  );

  my $status  = $csv->parse;

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.

In this case C<listprice_as_number> will be used to read in values from the

C<listprice> column.

In case of a One-To-One relationsship these can also be set over

relationsships by sparating the steps with a dot (C<.>). This will work:

And will result in something like this:

will have to do that for yourself. Since you provided the profile, it is

assumed you know what to do in this case.

and the return value used instead of the line itself.

=item C<ignore_unknown_columns>

Dispatch to child objects, like this:

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

 );

=head1 AUTHOR