File Coverage

blib/lib/Slurm/Sacctmgr/User.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	4	6	66.6
condition	2	6	33.3
subroutine	12	12	100.0
pod			n/a
total	59	65	90.7

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

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

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

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

#simple: just scalar, etc.  No custom accessor
#common: common to all versions of slurm
my @simple_common_accessors = qw(
	adminlevel
	defaultaccount
	user
);

my @aref_common_accessors = qw(
	coordinators
);

my @all_accessors =
(	@simple_common_accessors,
	@aref_common_accessors,
);

my @simple_accessors =
(	@simple_common_accessors,
);

my @aref_accessors =
(	@aref_common_accessors,
);

my @common_accessors =
(	@simple_common_accessors,
	@aref_common_accessors,
);

#coordinators is NOT modifiable
#ie cannot change in sacctmgr modify user
my @modifiable_fields =
(	@simple_common_accessors,
);

__PACKAGE__->mk_accessors(@simple_accessors);
__PACKAGE__->mk_arrayref_accessors(@aref_accessors);


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

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

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

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

sub _sacctmgr_fields_addable($$)
{	my $class = shift;
	my $sacctmgr = shift;
	return [ @modifiable_fields ];
}

sub _sacctmgr_fields_updatable($$)
{	my $class = shift;
	my $sacctmgr = shift;
	return [ @modifiable_fields ];
}

sub _sacctmgr_fields_in_order($$)
{	my $class = shift;
	my $sacctmgr = shift;
	return [ @common_accessors ];
}

#Overload this to include 'withcoord' flag
sub _sacctmgr_list_cmd($$)
{	my $class = shift;
	my $sacctmgr = shift;
	my $me = $class . '::_sacctmgr_list_cmd';

	die "$me: Missing sacctmgr param at " unless $sacctmgr && ref($sacctmgr);

	my $tmp = $class->SUPER::_sacctmgr_list_cmd($sacctmgr);
	return $tmp unless $tmp && ref($tmp) eq 'ARRAY';
	push @$tmp, 'withcoord';
	return $tmp;
}


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

#Overload default setting
sub _set_defaults($)
#Default adminlevel to None.  Set it to '' for Notset
{	my $obj = shift;

	my $val = $obj->adminlevel;
	unless ( defined $val )
	{	$obj->adminlevel('None');
	}

	return;
}
#All inherited

1;
__END__