File Coverage

blib/lib/XAS/Lib/SSH/Client/Exec.pm

Criterion	Covered	Total	%
statement	3	18	16.6
branch			n/a
condition			n/a
subroutine	1	4	25.0
pod	3	3	100.0
total	7	25	28.0

package XAS::Lib::SSH::Client::Exec;

our $VERSION = '0.01';

use XAS::Class
  debug     => 0,
  version   => $VERSION,
  base      => 'XAS::Lib::SSH::Client',
  utils     => ':validation trim',
  constants => 'CODEREF',
;

#use Data::Hexdumper;
#use Data::Dumper;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub setup {
    my $self = shift;

    my $output;

    # Merge stderr and stdout.

    $self->chan->ext_data('merge');

}

sub run {
    my $self = shift;
    my ($command) = validate_params(\@_, [1] );

}

sub call {
    my $self = shift;
    my ($command, $parser) = validate_params(\@_, [
       1,
       { type => CODEREF },
    ]);

    my @output;

    # execute a command, retrieve the output and dispatch to a parser.

    $self->chan->exec($command);

    $self->{'exit_code'}   = $self->chan->exit_status();
    $self->{'exit_signal'} = $self->chan->exit_signal();

    do {

        my $line = $self->gets;
        push(@output, trim($line));

    } while ($self->pending);

    return $parser->(\@output);

}

# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------

1;

__END__