package MyOpenSSH 0.000001;
 
use Carp;
use Data::Dumper;
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/[^(capture)]/, );
 
around BUILDARGS => sub {
  my $orig  = shift;
  my $class = shift;
 
  my %args = ref $_[0] ?  %{$_[0]} : @_; 
 
  croak 'a host must be supplied for ssh: ssh => (\'<user>@<host>\', %opts)' if !%args;
 
  my ($host, %opts) = $args{ssh};
  return $class->$orig( %args)  if ref $host eq 'Net::OpenSSH';
  delete $args{ssh};
  my $ssh = Net::OpenSSH->new($host, %opts);
  $ssh->error and croak "could not connect to host: $ssh->error";
  return $class->$orig( ssh => $ssh, %args );
};
 
# wrapper for system method
sub exec {
  validate_pos(@_, 1, 1); 
  my $self = shift;
  my $cmd = shift;
  $self->ssh->system($cmd) || carp 'Command failed: ' . $self->ssh->error;
}
 
# wrapper for capture method
sub capture {
  validate_pos(@_, 1, 1); 
  my $self = shift;
  my $cmd = shift;
 
  $self->ssh->capture($cmd) || carp 'Command failed: ' . $self->ssh->error;
}
###########################################