sub _set {
    my $self = shift;
    my ($key, $value);
    while (($key, $value) = splice @_, 0, 2) { $self->{$key} = $value }
}