File Coverage

blib/lib/GRID/Cluster/Result.pm

Criterion	Covered	Total	%
statement	12	38	31.5
branch	0	4	0.0
condition			n/a
subroutine	4	9	44.4
pod	5	5	100.0
total	21	56	37.5

package GRID::Cluster::Result;

use GRID::Machine::MakeAccessors;
use GRID::Machine::Message;
use GRID::Machine::Result;
use overload q("") => 'str',
             bool  => 'allfirstok';

# Constructor
sub new {

  my $class = shift;

  my $self = {};

  bless $self, $class;
  return $self;
}

# Adds a new GRID::Machine::Result object to a GRID::Cluster::Result object
sub add {

  my $self = shift;
  my %args = @_;

  my $host_name = $args{host_name} if defined($args{host_name});
  my $machine_result = $args{machine_result} if defined($args{machine_result});

  $self->{$host_name} = $machine_result;

}

# Methods

# This method returns a reference to a list of trues or falses,
# depending on there were / weren't errors during executions
sub result {
  my $self = shift;

  return [ map { $self->{$_}->result } keys %{$self} ];
}

# This method returns true if all the values of the list returned by
# the method "results" are true.
# This method is used for overloading the bool operator
sub allfirstok {
  my $self = shift;

  my @results = @{$self->result};

  my @falses = grep { !$_ } @results;

  return !@falses;
}

# This method is used for overloading the q("") operator
sub str {
  my $self = shift;

  my $string = "";
  my @host_names = keys %{$self};

  foreach (@host_names) {
    $string .= "$_: ".$self->{$_}->str."\n";
  }

  return $string;
}


1;

__END__