- (private => $private)x!! $private,
- (timeout => $timeout)x!! $timeout,
- (olimit => $olimit)x!! $olimit,
- (tests => encode_json \@tests)x!! @tests,
- (gensource => $gensource)x!! $gensource,
- (genformat => $genformat)x!! $genformat,
- (versource => $versource)x!! $versource,
- (verformat => $verformat)x!! $verformat,
- });
+ );
+ $options{private} = $private if $private;
+ $options{timeout} = $timeout if $timeout;
+ $options{olimit} = $olimit if $olimit;
+ $options{tests} = encode_json \@tests if @tests;
+ $options{gensource} = $gensource if $gensource;
+ $options{genformat} = $genformat if $genformat;
+ $options{versource} = $versource if $versource;
+ $options{verformat} = $verformat if $verformat;
+ $db->problems->create (\%options);