use feature 'switch';

            given ($alt->{type}) {
                when ("string") {
                    push @res, "--argstr", $input, $alt->{value};
                }
                when ("boolean") {
                    push @res, "--arg", $input, booleanToString($exprType, $alt->{value});
                }
                when ("nix") {
                    die "input type ‘nix’ only supported for Nix-based jobsets\n" unless $exprType eq "nix";
                    push @res, "--arg", $input, $alt->{value};
                }
                when ("eval") {
                    die "input type ‘eval’ only supported for Nix-based jobsets\n" unless $exprType eq "nix";
                    my $s = "{ ";
                    # FIXME: escape $_.  But dots should not be escaped.
                    $s .= "$_ = builtins.storePath ${\$alt->{jobs}->{$_}}; "
                        foreach keys %{$alt->{jobs}};
                    $s .= "}";
                    push @res, "--arg", $input, $s;
                }
                default {
                    push @res, "--arg", $input, buildInputToString($exprType, $alt);
                }
            }

	    if ($alt->{type} eq "string") {
		push @res, "--argstr", $input, $alt->{value};
	    }
	    elsif ($alt->{type} eq "boolean") {
		push @res, "--arg", $input, booleanToString($exprType, $alt->{value});
	    }
            elsif ($alt->{type} eq "nix") {
		die "input type ‘nix’ only supported for Nix-based jobsets\n" unless $exprType eq "nix";
		push @res, "--arg", $input, $alt->{value};
	    }
            elsif ($alt->{type} eq "eval") {
		die "input type ‘eval’ only supported for Nix-based jobsets\n" unless $exprType eq "nix";
		my $s = "{ ";
		# FIXME: escape $_.  But dots should not be escaped.
		$s .= "$_ = builtins.storePath ${\$alt->{jobs}->{$_}}; "
		    foreach keys %{$alt->{jobs}};
		$s .= "}";
		push @res, "--arg", $input, $s;
	    }
	    else {
		push @res, "--arg", $input, buildInputToString($exprType, $alt);
	    }

use feature qw/switch/;

    given ($build->buildstatus) {
        when (0) { $status = "Success"; }
        when (1) { $status = "Failed"; }
        when (2) { $status = "Dependency failed"; }
        when (4) { $status = "Cancelled"; }
        when (6) { $status = "Failed with output"; }
    }

    if ($build->buildstatus == 0) { $status = "Success"; }
    elsif ($build->buildstatus == 1) { $status = "Failed"; }
    elsif ($build->buildstatus == 2) { $status = "Dependency failed"; }
    elsif ($build->buildstatus == 4) { $status = "Cancelled"; }
    elsif ($build->buildstatus == 6) { $status = "Failed with output"; }

   return $status;

    return $status;

use feature 'switch';

    given ($ext) {
        when ('.xz')   { $mimetype = "application/x-xz"; }
        when ('.lzma') { $mimetype = "application/x-xz"; }
        when ('.zip')  { $mimetype = "application/zip"; }
        when ('.bz2')  { $mimetype = "application/x-bzip2"; }
        when ('.tgz')  { $mimetype = "application/x-gzip"; }
        default { die "couldn't parse extension of $covTarball"; }
    }

    if ($ext eq '.xz') { $mimetype = "application/x-xz"; }
    elsif ($ext eq '.lzma') { $mimetype = "application/x-xz"; }
    elsif ($ext eq '.zip') { $mimetype = "application/zip"; }
    elsif ($ext eq '.bz2') { $mimetype = "application/x-bzip2"; }
    elsif ($ext eq '.tgz') { $mimetype = "application/x-gzip"; }
    else { die "couldn't parse extension of $covTarball"; }

use feature 'switch';