File Coverage

blib/lib/LSF/Hosts.pm

Criterion	Covered	Total	%
statement	19	37	51.3
branch	1	14	7.1
condition	3	12	25.0
subroutine	6	6	100.0
pod	1	1	100.0
total	30	70	42.8

package LSF::Hosts;

use strict;
use warnings;
use base qw( LSF );
use IPC::Run qw( run );
our $VERSION = '0.01';

sub import
{
  my ( $self, %p ) = @_;
  $p{RaiseError}  ||= 1;
  $p{PrintOutput} ||= 1;
  $p{PrintError}  ||= 1;
  $self->PrintOutput( $p{PrintOutput} ) if exists $p{PrintOutput};
  $self->PrintError( $p{PrintError} )   if exists $p{PrintError};
  $self->RaiseError( $p{RaiseError} )   if exists $p{RaiseError};
}

sub new
{
  my ( $class, @params ) = @_;
  my @output = $class->do_it( 'bhosts', '-l' );
  return unless @output;
  my @hosts;
  my $host;
  my @keys = qw(STATUS CPUF JL/U MAX NJOBS RUN SSUSP USUSP RSV DISPATCH_WINDOW);
  foreach ( split( /\n/, $output[0] ) ) {
    if ( /HOST/ .. /^\s*$/ ) {
      my $hostline = $_;
      if (/HOST\s+(\S+)/) {
        $host = {};
        $host->{HOST_NAME} = $1;
      }
      if ( !( /HOST/ || /STATUS/ || /^\s*$/ ) ) {
        my @values = split /\s+/, $hostline;
        for ( 0 .. @keys - 1 ) { $host->{ $keys[$_] } = $values[$_]; }
        bless $host, $class;
        push @hosts, $host;
      }
    }
  }
  return @hosts;
}

1;

__END__