view release on metacpan or  search on metacpan

lib/File/Tabular/Web.pm  view on Meta::CPAN

765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
  if (my $auto_num = $self->{data}{autoNumField}) {
    $defaults->{$auto_num} ||= $self->{data}{autoNumChar};
  }
  $record->{$_} = $defaults->{$_} foreach $self->{data}->headers;
 
  $self->{results} = {count => 1, records => [$record], lineNumbers => [-1]};
}
 
 
#----------------------------------------------------------------------
sub update {
#----------------------------------------------------------------------
  my ($self) = @_;
 
  # check if there is one record to update
  my $found  = $self->{results};
  $found->{count} == 1 or die "unexpected number of records to update";
 
  # gather some info
  my $record     = $found->{records}[0];
  my $line_nb    = $found->{lineNumbers}[0];