File Coverage

blib/lib/Slurm/Sacctmgr/Tres.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	30	31	96.7

#!/usr/local/bin/perl
#
#Part of Slurm::Sacctmgr: Perl wrapper for Slurm's sacctmgr cmd
#Represents an Trackable Resource (TRES)

package Slurm::Sacctmgr::Tres;
use strict;
use warnings;
use base qw(Slurm::Sacctmgr::EntityBaseListable);
use Carp qw(carp croak);

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

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

#Accessors common to all versions of slurm > 15.x
#(TRES not available at ALL before then)
my @simple_accessors = qw(
	name
	id
	type
);

my @all_accessors = (
	@simple_accessors,
);

__PACKAGE__->mk_accessors(@simple_accessors);

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

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

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

sub _sacctmgr_fields_in_order($$)
{	my $class = shift;
	my $sacctmgr = shift;
	my @fields;
	if ( $sacctmgr->sacctmgr_cmd_supports('trackable_resources') )
	{	@fields= @all_accessors;
	}

	return [ @fields ];
}

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

#All inherited

1;
__END__