Revision e95294b5
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
| SL/Helper/Csv/Dispatcher.pm | ||
|---|---|---|
| 109 | 109 |
my @specs; |
| 110 | 110 |
|
| 111 | 111 |
my $csv_profile = $self->_csv->profile; |
| 112 |
my $h_aref = ($self->_csv->is_multiplexed)? $self->_csv->header : [ $self->_csv->header ]; |
|
| 112 | 113 |
my $i = 0; |
| 113 |
foreach my $header (@{ $self->_csv->header }) {
|
|
| 114 |
foreach my $header (@{ $h_aref }) {
|
|
| 114 | 115 |
my $spec = $self->_parse_profile(profile => $csv_profile->[$i]->{profile},
|
| 115 | 116 |
class => $csv_profile->[$i]->{class},
|
| 116 | 117 |
header => $header); |
Auch abrufbar als: Unified diff
Csv-Helper lässt header als einfaches Arrayref bei Nicht-Multiplex-Daten zu.