File Coverage

blib/lib/Slurm/Sacctmgr/Transaction.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod			n/a
total	38	42	90.4

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

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

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

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

#Fields common to all versions of slurm
my @common_accessors = qw(
	action
	actor
	info
	timestamp
	where
);

my @all_accessors = @common_accessors;
my @simple_accessors = @common_accessors;

__PACKAGE__->mk_accessors(@simple_accessors);

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

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

#Do NOT overload this, should never get used
#Transactions cannot be specified with a single field
#sub _sacctmgr_name_field($)
#{	my $class = shift;
#	die "This needs work";
#	return 'transaction';
#}

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

sub _my_sacctmgr_where_clause($)
#Overloaded to match on action, actor, timestamp, info and where
#Sort of pointless; as must match everything.
{	my $obj = shift;
	croak "Must be called as an instance method at "
		unless $obj && ref($obj);

	#Do everythin, because I don't think anything else is necessarily unique
	my @fields = @all_accessors;
	my ($fld, $val, $meth);
	my $where = {};
	foreach $fld (@fields)
	{	$meth = $fld;
		$val = $obj->$meth;
		$val = '' unless defined $val;
		$where->{$fld} = $val;
	}
	return $where;
}


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

#All inherited

1;
__END__