diff options
Diffstat (limited to 'perl5')
-rw-r--r-- | perl5/Local/Rex/Util.pm | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/perl5/Local/Rex/Util.pm b/perl5/Local/Rex/Util.pm deleted file mode 100644 index 0aa966f8..00000000 --- a/perl5/Local/Rex/Util.pm +++ /dev/null @@ -1,22 +0,0 @@ -package Local::Rex::Util; - -use 5.028; -use strict; -use warnings; -use parent 'Exporter'; - -use Rex -feature => ['1.4']; - -our @EXPORT = qw( as as_me ); - -sub as ($&) { - can_run "sudo" or die "wanted to execute as $_[0] but no sudo on PATH!"; - sudo { user => $_[0], command => $_[1]}; -} - -sub as_me (&) { - my $me = get("me") || "spwhitton"; - as($me, \&{$_[0]}); -} - -1; |