# IPC/Msg.pm lines 61-79
sub set {
    my $self = shift;
    my $ds;

    if(@_ == 1) {
        $ds = shift;
    }
    else {
        croak 'Bad arg count' if @_ % 2;
        my %arg = @_;
        my $ds = $self->stat
                or return undef;
        my($key,$val);
        $ds->$key($val)
            while(($key,$val) = each %arg);
    }

    msgctl($$self,IPC_SET,$ds->pack);
}