1 package Object::Remote::Connector::LocalSudo;
5 extends 'Object::Remote::Connector::Local';
7 around _perl_command => sub {
8 my ($orig, $self, $target_user) = @_;
9 return 'sudo', '-u', $target_user, $self->$orig($target_user);
12 push @Object::Remote::Connection::Guess, sub {
14 # username followed by @
15 if (defined and !ref and /^ ([^\@]*?) \@ $/x) {
16 return __PACKAGE__->new->connect($1);