augment 'as_xml' => sub {
    my ($self, $name)=@_;

      VendorAddRq(
	  VendorAdd(
	      Name($name)));
};