Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c46898c7

Von Sven Schöling vor mehr als 13 Jahren hinzugefügt

  • ID c46898c7a2328d211465818380178e25331d8f3c
  • Vorgänger bfb0d001
  • Nachfolger 09294068

Csv Errors sind nun Objekte mit entsprechendem Zugriff.

Unterschiede anzeigen:

SL/Helper/Csv/Dispatcher.pm
9 9 
  _specs _errors
10 10 
) ];
11 11 

  		




  
  12
  
    
use SL::Helper::Csv::Error;


  		




  
  13
  
    

  		




  12
  14
  
    
sub new {


  		




  13
  15
  
    
  my ($class, $parent) = @_;


  		




  14
  16
  
    
  my $self = bless { }, $class;


  		




  ......




  137
  139
  
    

  		




  138
  140
  
    
sub _push_error {


  		




  139
  141
  
    
  my ($self, @errors) = @_;


  		




  140
  
  
    
  my @new_errors = ($self->errors, @errors);


  		




  
  142
  
    
  my @new_errors = ($self->errors, map { SL::Helper::Csv::Error->new(@$_) } @errors);


  		




  141
  143
  
    
  $self->_errors(\@new_errors);


  		




  142
  144
  
    
}


  		




  143
  145
  
    

  		












Auch abrufbar als:  Unified diff