sub update {
  my $self   = shift;
  my $cgi    = $self->query();
  my $xmlstr = $cgi->get_data();
  ...
}

sub create {
  my $self   = shift;
  my $cgi    = $self->query();
  my $xmlstr = $cgi->get_data();
  ...
}