view release on metacpan or  search on metacpan

lib/Unix/Sudo.pm  view on Meta::CPAN

modified under the terms of either the GNU General Public Licence version 2 or
the Artistic Licence.  It's up to you which one you use.  The full text of the
licences can be found in the files GPL2.txt and ARTISTIC.txt, respectively.

=head1 CONSPIRACY

This module is also free-as-in-mason software.

=cut

sub sudo(&) {
    my $context = peek_my(1);
    my $code = "use warnings;use strict;\n";

    my $deparse = B::Deparse->new();

    # declare all the variables first, in case one of them is a code-ref
    # that refers to one of the others
    foreach my $variable (keys %{$context}) {
        $code .= "my $variable;\n";
    }