File Coverage

blib/lib/Slurm/Sacctmgr/Qos.pm

Criterion	Covered	Total	%
statement	26	31	83.8
branch	2	2	100.0
condition			n/a
subroutine	8	10	80.0
pod			n/a
total	36	43	83.7

#!/usr/local/bin/perl
#
#Part of Slurm::Sacctmgr: Perl wrapper for Slurm's sacctmgr cmd
#Represents a Qos

package Slurm::Sacctmgr::Qos;
use strict;
use warnings;
use base qw(Slurm::Sacctmgr::EntityBaseRW);
use Carp qw(carp croak);

#-------------------------------------------------------------------
#	Globals
#-------------------------------------------------------------------

#-------------------------------------------------------------------
#	Accessors
#-------------------------------------------------------------------

my @common_simple_accessors = qw(
	description
	gracetime
	grpjobs
	grpsubmitjobs
	grpwall
	id
	maxjobs
	maxsubmitjobs
	maxwall
	name
	preempt
	preemptmode
	priority
	usagefactor
	usagethreshold
);

my @preTRES_accessors = qw(
	grpcpumins
	grpcpus
	grpnodes
	maxcpumins
	maxcpus
	maxcpusperuser
	maxnodes
	maxnodesperuser
	mincpus

);

my @postTRES_accessors = qw(
	grptresmins
	grptresrunmins
	grptres
	maxtresmins
	maxtresperjob
	maxtrespernode
	maxtresperuser
	mintresperjob
);

my @common_aref_accessors = qw(
	flags
);

my @common_accessors = (
	@common_simple_accessors,
	@common_aref_accessors,
);

my @all_accessors = (
	@common_accessors,
	@preTRES_accessors,
	@postTRES_accessors,
);

my @simple_accessors = (@common_simple_accessors);

__PACKAGE__->mk_accessors(@simple_accessors);

#------------	Special accessors

#Aref
__PACKAGE__->mk_arrayref_accessors(@common_aref_accessors);

#TRES/nonTRES variants
__PACKAGE__->mk_tres_nontres_accessors('grptres', 'grpcpus' => 'cpu', 'grpnodes' => 'node' );
__PACKAGE__->mk_tres_nontres_accessors('grptresmins', 'grpcpumins' => 'cpu', );
__PACKAGE__->mk_tres_nontres_accessors('maxtresmins', 'maxcpumins' => 'cpu', );
#maxcpus/maxnodes are actually per job
__PACKAGE__->mk_tres_nontres_accessors('maxtresperjob', 'maxcpus' => 'cpu', 'maxnodes' => 'node' );
__PACKAGE__->mk_tres_nontres_accessors('maxtresperuser',
	'maxcpusperuser' => 'cpu', 'maxnodesperuser' => 'node' );
#mincpus is actually per job
__PACKAGE__->mk_tres_nontres_accessors('mintresperjob', 'mincpus' => 'cpu', );
#These do not have preTRES counterparts ???
__PACKAGE__->mk_tres_nontres_accessors('grptresrunmins');
__PACKAGE__->mk_tres_nontres_accessors('maxtrespernode');

#-------------------------------------------------------------------
#	Overloaded methods
#-------------------------------------------------------------------

sub _rw_fields($)
{	my $class = shift;
	return [ @all_accessors ];
}

sub _sacctmgr_fields($$)
{	my $class = shift;
	return [ @all_accessors ];
}

sub _sacctmgr_name_field($)
{	my $class = shift;
	return 'name';
}

sub _sacctmgr_fields_in_order($$)
{	my $class = shift;
	my $sacctmgr = shift;
	my @fields = @common_accessors;
	if ( $sacctmgr->sacctmgr_cmd_supports('trackable_resources') )
	{	push @fields, @postTRES_accessors;
	} else
	{	push @fields, @preTRES_accessors;
	}
	return [ @fields ];
}

sub _sacctmgr_fields_addable($$)
{	my $class = shift;
	my $sacctmgr = shift;
	return $class->_sacctmgr_fields_in_order($sacctmgr);
}

sub _sacctmgr_fields_updatable($$)
{	my $class = shift;
	my $sacctmgr = shift;
	return $class->_sacctmgr_fields_in_order($sacctmgr);
}

#-------------------------------------------------------------------
#	Constructors, etc
#-------------------------------------------------------------------

#All inherited

1;
__END__