Select Code to Download

{ package Server;

...
my $server = Server->new(ssh => Net::OpenSSH->new('me@10.0.1.22'));
print $server->grab('ls');

You can use a role name as the value of handles:

...
  );

Moose will introspect the role to determine what methods it provides a
+nd create a name-for-name mapping for each of those methods.

  has 'ssh' => (is => 'ro', isa => 'Net::OpenSSH', required => 1, hand
+les => 'MyOpenSSH', );

You cannot overwrite a locally defined method (grab) with a delegation