my $csv = SL::Helper::Csv->new(
file => \"Kaffee\n", # " # make emacs happy
- header => [[ 'description' ]],
+ header => [ 'description' ],
profile => [{ class => 'SL::DB::Part', }],
);
$csv = SL::Helper::Csv->new(
file => \"Kaffee;0.12;12,2;1,5234\n", # " # make emacs happy
- header => [[ 'description', 'sellprice', 'lastcost_as_number', 'listprice' ]],
+ header => [ 'description', 'sellprice', 'lastcost_as_number', 'listprice' ],
profile => [{profile => { listprice => 'listprice_as_number' },
class => 'SL::DB::Part',}],
);
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'description' ]],
+ header => [ 'description' ],
profile => [{class => 'SL::DB::Part'}],
);
$csv->parse;
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'Description' ]],
+ header => [ 'Description' ],
case_insensitive_header => 1,
profile => [{
profile => { description => 'description' },
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'Description' ]],
+ header => [ 'Description' ],
profile => [{class => 'SL::DB::Part'}],
);
$csv->parse;
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'foo' ]],
+ header => [ 'foo' ],
profile => [{
profile => { foo => '' },
class => 'SL::DB::Part',
$csv = SL::Helper::Csv->new(
file => \"Kaffee", # " # make emacs happy
- header => [[ 'foo' ]],
+ header => [ 'foo' ],
strict_profile => 1,
profile => [{
profile => { foo => '' },
$csv = SL::Helper::Csv->new(
file => \"Phil", # " # make emacs happy
- header => [[ 'CVAR_grOUnDHog' ]],
+ header => [ 'CVAR_grOUnDHog' ],
strict_profile => 1,
case_insensitive_header => 1,
profile => [{
file => \"P;Kaffee\nC;Meier", # " # make emacs happy
header => [[ 'Datatype', 'Description' ], [ 'Datatype', 'Name']],
case_insensitive_header => 1,
+ ignore_unknown_columns => 1,
profile => [
{
profile => { datatype => 'datatype', description => 'description' },