view release on metacpan or  search on metacpan

Listman/line.pm  view on Meta::CPAN

=back

=item Return values

This method returns nothing.

=back

=cut

sub update_fields {
  my ($self, $fields_ref) = @_;

  delete $self->{'data'}
    if (defined $self->{'data'});

  $self->{'data'} = $fields_ref;
  $self->{'_updated'} = 1;
}

=pod