Shell-GetEnv

 view release on metacpan or  search on metacpan

lib/Shell/GetEnv.pm  view on Meta::CPAN

        login       => 'l',
        save_status => qq[export $status_var=\$?],
    },

    csh => {
        interactive => 'i',
        nostartup   => 'f',
        echo        => 'x',
        verbose     => 'v',
        login       => 'l',
        save_status => qq[setenv $status_var \$status],
    },

    tcsh => {
        interactive => 'i',
        nostartup   => 'f',
        echo        => 'x',
        verbose     => 'v',
        login       => 'l',
        save_status => qq[setenv $status_var \$status],
    },
);


my %Opts = (
    startup     => 1,
    login       => 0,
    debug       => 0,
    echo        => 0,
    login       => 0,

t/testenv.csh  view on Meta::CPAN

unsetenv SHELL_GETENV_TEST
setenv SHELL_GETENV csh

t/testenv.tcsh  view on Meta::CPAN

unsetenv SHELL_GETENV_TEST
setenv SHELL_GETENV tcsh

t/teststatus.csh  view on Meta::CPAN

unset GETENV_ARG
setenv GETENV_ARG $GETENV_ARG1

( exit $GETENV_ARG )

t/teststatus.tcsh  view on Meta::CPAN

unset GETENV_ARG
setenv GETENV_ARG $GETENV_ARG1

( exit $GETENV_ARG )