Select Code to Download

  set(%params);
  create(\%params);

   sub set_all{
      my($self, %params) = @_;
...
      }
      $self->set(%p); # call the original set
   }