package MyOpenSSH 0.000001;

use Carp;
use Moose::Role;
use Modern::Perl;
use Net::OpenSSH;
use Params::Validate;

has 'ssh' => (is => 'rw', isa => 'Net::OpenSSH', required => 1, lazy => 0, handles => qr/.*/, );

sub BUILD {
  # do object validation stuff here
}

sub exec {
  my $self = shift;
  my $opts = shift;

  if (ref $opts eq 'HASH') {
    my $cmd = shift;
    $self->ssh->system($opts, $cmd) || croak 'Command failed: ' . $self->ssh->error;
  } else {
    my $cmd = $opts;
    $self->ssh->system($cmd, @_) || croak 'Command failed: ' . $self->ssh->error;
  }
}

# wrapper for capture method
# this has been edited to simplify and fix a bug since last post.
sub grab {
  my $self = shift;

  return $self->ssh->capture(@_) if !$self->ssh->error;
  croak ('ssh command failed');
}