use Gen::Test::Rinci::FuncResult qw(gen_test_func);
gen_test_func(name => 'test_divide', func => \&divide);
sub divide {
    my %args = @_;
    my ($a, $b) = ($args{a}, $args{b});
    return [500, "undefined"] if $a == 0 && $b == 0;
    [200, "OK", $a/$b];
}
1;
