File Coverage

blib/lib/GRID/Cluster/Handle.pm

Criterion	Covered	Total	%
statement	15	34	44.1
branch	0	14	0.0
condition			n/a
subroutine	5	13	38.4
pod	1	8	12.5
total	21	69	30.4

package GRID::Cluster::Handle;

use strict;
use warnings;

use GRID::Machine;
use GRID::Cluster::Handle;
use IO::Select;

# Constructor
sub new {
  my $class = shift;

  my %opts = @_;

  my $self = \%opts;

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

# Getters

sub get_readset {
  my $self = shift;
  return $self->{readset} if defined($self->{readset});
}

sub get_proc {
  my $self = shift;
  return $self->{proc} if defined($self->{proc});
}

sub get_rproc {
  my $self = shift;
  return $self->{rproc} if defined($self->{rproc});
}

sub get_wproc {
  my $self = shift;
  return $self->{wproc} if defined($self->{wproc});
}

sub get_pid {
  my $self = shift;
  return $self->{pid} if defined($self->{pid});
}

sub get_id {
  my $self = shift;
  return $self->{id} if defined($self->{id});
}

sub get_map_id_machine {
  my $self = shift;
  return $self->{map_id_machine} if defined($self->{map_id_machine});
}

1;

__END__