/usr/local/CPAN/Grid-Request/Grid/Request/DRM/PBS.pm

• package Grid::Request::DRM::PBS
  • new
  • account
  • hosts
  • opsys
  • evictable
  • priority
  • memory
  • length
  • project
  • class
  • runtime
• EOF

package Grid::Request::DRM::PBS;

use strict;
use Log::Log4perl qw(get_logger);

our $VERSION = '0.9';

my $logger = get_logger(__PACKAGE__);

sub new {
    my $class = shift;
    my $self = bless {}, $class || ref($class);
    return $self;
}

sub account {
    $logger->debug("In account.");
    my ($self, $account) = @_;
    my $spec = "";
    return $spec;
}

sub hosts {
    $logger->debug("In hosts.");
    my ($self, $hosts) = @_;
    my $spec = "";
    return $spec;
}

sub opsys {
    $logger->debug("In opsys.");
    my $self = shift;
    my $spec = "";
    return $spec;
}

sub evictable {
    $logger->debug("In evictable.");
    my $self = shift;
    my $spec = "";
    return $spec;
}

sub priority {
    $logger->debug("In priority.");
    my ($self, $priority) = @_;
    my $spec = "";
    return $spec;
}

sub memory {
    $logger->debug("In memory.");
    my ($self, $megabytes) = @_;
    my $spec = "";
    return $spec;
}

sub length {
    $logger->debug("In length.");
    my ($self, $length) = @_;
    my $spec = "";
    return $spec;
}

sub project {
    $logger->debug("In project.");
    my ($self, $project) = @_;
    if (! defined $project) {
        Grid::Request::InvalidArgumentException->throw("project is not defined.");
    }
    my $spec = "-P $project";
    $logger->debug(qq|Returning "$spec".|);
    return $spec;
}

sub class {
    $logger->debug("In class.");
    my ($self, $class) = @_;
    my $spec = "";
    return $spec;
}

sub runtime {
    $logger->debug("In runtime.");
    my ($self, $min) = @_;
    my $spec = "";
    return $spec;
}

1;