Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8ad3a60e

Von Bernd Bleßmann vor etwa 11 Jahren hinzugefügt

  • ID 8ad3a60e282dc36dd0738751ff714e1d04abdd8f
  • Vorgänger 048a6eb7
  • Nachfolger 8c84f902

Code-Vereinfachung

Unterschiede anzeigen:

SL/Helper/Csv/Dispatcher.pm
106 106 
sub parse_profile {
107 107 
  my ($self, %params) = @_;
108 108 

  		




  109
  
  
    
  my $profile;


  		




  110
  
  
    
  my $class;


  		




  111
  109
  
    
  my @specs;


  		




  112
  110
  
    

  		




  
  111
  
    
  my $csv_profile = $self->_csv->profile;


  		




  113
  112
  
    
  my $i = 0;


  		




  114
  113
  
    
  foreach my $header (@{ $self->_csv->header }) {


  		




  115
  
  
    
    if ($self->_csv->profile) {


  		




  116
  
  
    
      $profile = $self->_csv->profile->[$i]->{profile};


  		




  117
  
  
    
      $class   = $self->_csv->profile->[$i]->{class};


  		




  118
  
  
    
    }


  		




  119
  
  
    

  		




  120
  
  
    
    my $spec = $self->_parse_profile(profile => $profile,


  		




  121
  
  
    
                                     class   => $class,


  		




  
  114
  
    
    my $spec = $self->_parse_profile(profile => $csv_profile->[$i]->{profile},


  		




  
  115
  
    
                                     class   => $csv_profile->[$i]->{class},


  		




  122
  116
  
    
                                     header  => $header);


  		




  123
  117
  
    
    push @specs, $spec;


  		




  124
  118
  
    
    $i++;


  		












Auch abrufbar als:  Unified diff