File Coverage

blib/lib/Slurm/Sacctmgr/Cluster.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	50	50	100.0

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

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

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

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

#Accessors common to all versions of slurm
my @common_accessors = qw(
	classification
	cluster
	controlhost
	controlport
	flags
	nodenames
	pluginidselect
	rpc
);

#Accessors in pre-TRES (< 15.x.y ) versions of slurm
my @preTRES_accessors = qw(
 	cpucount
	nodecount
);

#Accessors in post-TRES ( 15.x.y or higher ) versions of slurm
my @postTRES_accessors = qw(
	tres
);

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

my @simple_accessors = ( @common_accessors );

__PACKAGE__->mk_accessors(@simple_accessors);

#Special accessors: handle TRES and non-TRES fields
__PACKAGE__->mk_tres_nontres_accessors('tres',
		'cpucount' => 'cpu',
		'nodecount' => 'node',
);

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

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

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

sub _sacctmgr_fields($)
#All fields, all versions of slurm
{	my $class = shift;
	my $fields = [ @common_accessors,
			@preTRES_accessors,
			@postTRES_accessors,
		];
	return $fields;
}

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;
	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_updatable($$)
{	my $class = shift;
	my $sacctmgr = shift;
	return $class->_sacctmgr_fields_addable($sacctmgr);
}



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

#All inherited

1;
__END__