File Coverage

lib/Rex/Interface/Shell/Idrac.pm

Criterion	Covered	Total	%
statement	11	26	42.3
branch	0	2	0.0
condition	0	6	0.0
subroutine	4	7	57.1
pod	0	3	0.0
total	15	44	34.0

#
# (c) Ferenc Erki , adjust GmbH
#

package Rex::Interface::Shell::Idrac;

use v5.12.5;
use warnings;

our $VERSION = '1.14.2.2'; # TRIAL VERSION

use Rex::Interface::Shell::Default;
use base qw(Rex::Interface::Shell::Default);

sub new {
  my $class = shift;
  my $proto = ref($class) || $class;
  my $self  = $proto->SUPER::new(@_);

  bless( $self, $class );

  return $self;
}

sub detect {
  my ( $self, $con ) = @_;

  my ($output);
  eval {
    ($output) = $con->direct_exec('version');
    1;
  };
  if ( $output && $output =~ m/SM CLP Version: / ) {
    return 1;
  }

  return 0;
}

sub exec {
  my ( $self, $cmd, $option ) = @_;
  return $cmd;
}

1;