if ($action eq 'new') {
   croak "\$name is not defined/set for action == new"
       unless (defined $name and $name ne "");
   #
   # code to create new
   #
}