- foreach my $header (@{ $self->_csv->header }) {
- if ($self->_csv->profile) {
- $profile = $self->_csv->profile->[$i]->{profile};
- $class = $self->_csv->profile->[$i]->{class};
- }
-
- my $spec = $self->_parse_profile(profile => $profile,
- class => $class,
+ foreach my $header (@{ $h_aref }) {
+ my $spec = $self->_parse_profile(profile => $csv_profile->[$i]->{profile},
+ class => $csv_profile->[$i]->{class},