view release on metacpan or  search on metacpan

lib/Grid/Request/Command.pm  view on Meta::CPAN

    $self->{params} = [];
    $self->{ids} = [];

    # Set the state attribute to the default.
    $self->{state} = $default_state;

    # This is important for systems such as psearch, which change
    # uid's in order to submit jobs on behalf of users.
    # We should use the real user id.
    $self->{username} = getpwuid($<);
    $logger->debug("Set the username to the effective UID: " . $self->{username});

    # Set the default block size.
    $logger->debug("Setting the default block size.");
    $self->{block_size} = $DEFAULT_BLOCK_SIZE;
    
    foreach my $method (qw(block_size command class error getenv initialdir
                           input output name project priority times evictable
                           length runtime hosts)) {
        if (exists($args{$method}) && defined($args{$method})) {