setenv results from the CPAN

DynGig-Util

view release on metacpan or search on metacpan

lib/DynGig/Util/Time.pm view on Meta::CPAN

    my ( $class, $time, $zone ) = @_;

    return $1 ? time + $time : $time if $time =~ /^([+-]?)\d+(?:\.\d+)?$/;

    my $range = DynGig::Range::Time::Date
        ->setenv( timezone => $zone )->new( $time );

    return $class->delta_epoch( delta => $time ) if $range->empty();
    return $range->abs()->min() if $range->rel()->empty();

    $time = DateTime->now();

view all matches for this distribution

EAV-XS

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_set_all_env|||
magic_setarylen|||
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
magic_sethint|||
magic_setisa|||
magic_setmglob|||
magic_setnkeys|||
magic_setpack|||

ppport.h view on Meta::CPAN

my_memcmp|||n
my_memset||5.004000|n
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
my_setenv|||
my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf|5.009003||pvn
my_stat_flags|||
my_stat||5.019003|

view all matches for this distribution

EBook-Ishmael

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu

ppport.h view on Meta::CPAN

my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu

view all matches for this distribution

EFL

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setamagic|||
magic_setarylen|||
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
magic_sethint|||
magic_setisa|||
magic_setmglob|||
magic_setnkeys|||
magic_setpack|||

ppport.h view on Meta::CPAN

my_memset|||n
my_ntohl|||
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
my_setenv|||
my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf|5.009003||pvn
my_stat|||
my_strftime||5.007002|

view all matches for this distribution

ENV-Util

3 results

view release on metacpan or search on metacpan

lib/ENV/Util.pm view on Meta::CPAN

    my $varname_re = qr/[a-zA-Z_][a-zA-Z0-9_]+/;
    foreach my $line (@lines) {
        # code heavily inspired by Dotenv.pm (BooK++)
        if (my ($k, $v) = $line =~ m{
            \A\s*
            # 'export' (bash), 'set'/'setenv' ([t]csh) are optional keywords:
            (?: (?:export|set|setenv) \s+ )?
            ( $varname_re )
            (?: \s* (?:=|\s+) \s* )       # separator is '=' or spaces
            (
              '[^']*(?:\\'|[^']*)*'  # single quoted value
             |"[^"]*(?:\\"|[^"]*)*"  # or double quoted value

lib/ENV/Util.pm view on Meta::CPAN

    LITERAL='\n'         # but this is a literal '\' and a literal 'n'.

    BAR=baz          # bash/zsh format.
    export BAR=baz   # bash format.
    set BAR=baz      # tcsh/csh format.
    setenv BAR baz   # tcsh/csh format (note this one lacks '=').

    # empty values are set to the empty string ''
    NONE =
    ALSONONE

view all matches for this distribution

EV-ClickHouse

1 match

view release on metacpan or search on metacpan

xs/types.c view on Meta::CPAN

/* Set TZ env var and tzset(); returns saved old TZ (caller frees).
 * Safe because EV is single-threaded and the set_tz / decode / restore_tz
 * window contains no Perl callback dispatch. */
static char* set_tz(const char *tz) {
    char *saved = safe_strdup(getenv("TZ"));
    setenv("TZ", tz, 1);
    tzset();
    return saved;
}

/* Restore TZ from saved value (which may be NULL), then free saved */
static void restore_tz(char *saved) {
    if (saved) {
        setenv("TZ", saved, 1);
        Safefree(saved);
    } else {
        unsetenv("TZ");
    }
    tzset();
}

/* Compute 10^n as double */

view all matches for this distribution

EV-Etcd

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu

ppport.h view on Meta::CPAN

my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu

view all matches for this distribution

EV-Hiredis

1 match

view release on metacpan or search on metacpan

src/ppport.h view on Meta::CPAN

magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu

src/ppport.h view on Meta::CPAN

my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu

view all matches for this distribution

EV-Kafka

1 match

view release on metacpan or search on metacpan

src/ppport.h view on Meta::CPAN

magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu

src/ppport.h view on Meta::CPAN

my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu

view all matches for this distribution

EV-Memcached

1 match

view release on metacpan or search on metacpan

src/ppport.h view on Meta::CPAN

magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu

src/ppport.h view on Meta::CPAN

my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu

view all matches for this distribution

EV-Nats

1 match

view release on metacpan or search on metacpan

src/ppport.h view on Meta::CPAN

magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu

src/ppport.h view on Meta::CPAN

my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu

view all matches for this distribution

EV-Redis

1 match

view release on metacpan or search on metacpan

src/ppport.h view on Meta::CPAN

magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu

src/ppport.h view on Meta::CPAN

my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu

view all matches for this distribution

EV-Websockets

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu

ppport.h view on Meta::CPAN

my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu

view all matches for this distribution

Eixo-Zone-Driver

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setamagic|||
magic_setarylen|||
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
magic_sethint|||
magic_setisa|||
magic_setmglob|||
magic_setnkeys|||
magic_setpack|||

ppport.h view on Meta::CPAN

my_memset|||n
my_ntohl|||
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
my_setenv|||
my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf|5.009003||pvn
my_stat_flags|||
my_stat||5.014000|

view all matches for this distribution

Emacs-EPL

1 match

view release on metacpan or search on metacpan

lib/Emacs.pm view on Meta::CPAN

sub TIEHASH {
    return (bless (\ do { my $x }, $_[0]));
}

sub FETCH	{ return &Emacs::Lisp::getenv ($_[1]); }
sub STORE	{ &Emacs::Lisp::setenv ($_[1], $_[2]); return ($_[2]); }

# XXX Need to write tests for these.

sub DELETE	{ &Emacs::Lisp::setenv ($_[1], undef); }
sub EXISTS	{ return defined (FETCH (@_)); }

sub FIRSTKEY {
    my ($pe, $str);

view all matches for this distribution

Email-AddressParser

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setarylen|||
magic_setbm|||
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
magic_setfm|||
magic_setglob|||
magic_setisa|||
magic_setmglob|||
magic_setnkeys|||

ppport.h view on Meta::CPAN

my_memset|||n
my_ntohl|||
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
my_setenv|||
my_socketpair||5.007003|n
my_stat|||
my_strftime||5.007002|
my_swabn|||n
my_swap|||

ppport.h view on Meta::CPAN

set_csh|||
set_numeric_local||5.006000|
set_numeric_radix||5.006000|
set_numeric_standard||5.006000|
setdefout|||
setenv_getix|||
share_hek_flags|||
share_hek|||
si_dup|||
sighandler|||n
simplify_sort|||

view all matches for this distribution

Enbugger

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setarylen|||
magic_setbm|||
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
magic_setfm|||
magic_setglob|||
magic_sethint|||
magic_setisa|||
magic_setmglob|||

ppport.h view on Meta::CPAN

my_memset|||n
my_ntohl|||
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
my_setenv|||
my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf||5.009003|vn
my_stat|||
my_strftime||5.007002|

ppport.h view on Meta::CPAN

set_csh|||
set_numeric_local||5.006000|
set_numeric_radix||5.006000|
set_numeric_standard||5.006000|
setdefout|||
setenv_getix|||
share_hek_flags|||
share_hek||5.004000|
si_dup|||
sighandler|||n
simplify_sort|||

view all matches for this distribution

Encode-BOCU1-XS

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setarylen|||
magic_setbm|||
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
magic_setfm|||
magic_setglob|||
magic_setisa|||
magic_setmglob|||
magic_setnkeys|||

ppport.h view on Meta::CPAN

my_memset|||n
my_ntohl|||
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
my_setenv|||
my_socketpair||5.007003|n
my_stat|||
my_strftime||5.007002|
my_swabn|||n
my_swap|||

ppport.h view on Meta::CPAN

set_csh|||
set_numeric_local||5.006000|
set_numeric_radix||5.006000|
set_numeric_standard||5.006000|
setdefout|||
setenv_getix|||
share_hek_flags|||
share_hek|||
si_dup|||
sighandler|||n
simplify_sort|||

view all matches for this distribution

Encode-CNMap

1 match

view release on metacpan or search on metacpan

t/00base.t view on Meta::CPAN

BEGIN { use_ok( 'Encode' ); use_ok( 'Encode::CNMap' ); }

my $path = dirname($0);
my ( $data_utf8, $data_gb, $data_ugb, $data_gbk, $data_gbk2, $data_b5, $data_ub5 );

&setenv; is( simp_to_gb(		$data_gb  ), $data_gb,	'GB  ->GB'	);
&setenv; is( simp_to_b5(		$data_gb  ), $data_b5,	'GB  ->Big5');
&setenv; is( simp_to_utf8(		$data_gb  ), $data_ugb,	'GB  ->utf8');
&setenv; is( simp_to_simputf8(	$data_gb  ), $data_ugb,	'GB  ->simp utf8');
&setenv; is( simp_to_tradutf8(	$data_gb  ), $data_ub5,	'GB  ->trad utf8');

&setenv; is( simp_to_gb(		$data_gbk ), $data_gb,	'GBK ->GB'	);
&setenv; is( simp_to_b5(		$data_gbk ), $data_b5,	'GBK ->Big5');
&setenv; is( simp_to_utf8(		$data_gbk ), $data_utf8,'GBK ->utf8');
&setenv; is( simp_to_simputf8(	$data_gbk ), $data_ugb,	'GBK ->simp utf8');
&setenv; is( simp_to_tradutf8(	$data_gbk ), $data_ub5,	'GBK ->trad utf8');

&setenv; is( trad_to_gb(		$data_b5  ), $data_gb,	'Big5->GB'	);
&setenv; is( trad_to_gbk(		$data_b5  ), $data_gbk2,'Big5->GBK'	);
&setenv; is( trad_to_utf8(		$data_b5  ), $data_ub5, 'Big5->utf8');
&setenv; is( trad_to_simputf8(	$data_b5  ), $data_ugb,	'Big5->simp utf8');
&setenv; is( trad_to_tradutf8(	$data_b5  ), $data_ub5,	'Big5->trad utf8');

&setenv; is( utf8_to_gb(		$data_utf8), $data_gb,  'utf8-> GB'	);
&setenv; is( utf8_to_gbk(		$data_utf8), $data_gbk, 'utf8-> GBK');
&setenv; is( utf8_to_b5(		$data_utf8), $data_b5,  'utf8-> Big5');
&setenv; is( utf8_to_utf8(		$data_utf8), $data_utf8,'utf8->utf8');
&setenv; is( utf8_to_simputf8(	$data_utf8), $data_ugb, 'utf8->simp utf8');
&setenv; is( utf8_to_tradutf8(	$data_utf8), $data_ub5, 'utf8->trad utf8');

is(simp_to_gb(_('zhengqi.gbk')), _('zhengqi.gb'), 'File GBK ->GB');
is(simp_to_b5(_('zhengqi.gbk')), _('zhengqi.b5'), 'File GBK ->Big5');

is(simp_to_gb(_('zhengqi.gb')), _('zhengqi.gb'), 'GB File->GB');

t/00base.t view on Meta::CPAN


is(trad_to_gb(_('zhengqi.b5')), _('zhengqi.gb'), 'Big5 File->GB');
is(trad_to_gbk(_('zhengqi.b5')), _('zhengqi.gbk'), 'Big5 File->GBK');

sub _ { local $/; open _, "<:raw", File::Spec->catfile($path, $_[0]); return <_> }
sub setenv {
	$data_utf8  = "ä¸è¯ä¸åŽ";
	$data_gb    = Encode::encode( "gb2312", "ä¸åŽä¸åŽ" );
	$data_ugb   = "ä¸åŽä¸åŽ";
	$data_gbk   = Encode::encode( "gbk",    "ä¸è¯ä¸åŽ" );
	$data_gbk2  = Encode::encode( "gbk",    "ä¸è¯ä¸è¯" );

view all matches for this distribution

Encoding-FixLatin-XS

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setamagic|||
magic_setarylen|||
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
magic_sethint|||
magic_setisa|||
magic_setmglob|||
magic_setnkeys|||
magic_setpack|||

ppport.h view on Meta::CPAN

my_memset|||n
my_ntohl|||
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
my_setenv|||
my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf|5.009003||pvn
my_stat|||
my_strftime||5.007002|

view all matches for this distribution

English-Name

1 match

view release on metacpan or search on metacpan

lib/English/ppport.h view on Meta::CPAN

magic_setarylen|5.003007||Viu
magic_setcollxfrm|5.004000||Viu
magic_setdbline|5.003007||Viu
magic_setdebugvar|5.021005||Viu
magic_setdefelem|5.004000||Viu
magic_setenv|5.003007||Viu
magic_sethint|5.009004||Vi
magic_sethint_feature|5.031007||Viu
magic_setisa|5.003007||Viu
magic_setlvref|5.021005||Viu
magic_setmglob|5.003007||Viu

lib/English/ppport.h view on Meta::CPAN

my_mkstemp|||niu
my_nl_langinfo|5.027006||Vniu
my_pclose|5.003007|5.003007|u
my_popen|5.003007|5.003007|u
my_popen_list|5.007001|5.007001|u
my_setenv|5.003007|5.003007|
my_snprintf|5.009004||pvVn
my_socketpair|5.007003|5.007003|nu
my_sprintf|5.009003|5.003007|pdn
my_stat|5.013003||Viu
my_stat_flags|5.013003||cViu

view all matches for this distribution

Env-C

7 results

view release on metacpan or search on metacpan

lib/Env/C.pm view on Meta::CPAN

  use Env::C;
  
  my $key = "USER";
  $val = Env::C::getenv($key) || '';
  
  Env::C::setenv($key, "foobar", [$override]);
  $new_val = Env::C::getenv($key) || '';
  
  Env::C::unsetenv($key);
  
  my $ar_env = Env::C::getallenv();
  print join "\n", @$ar_env;

  Env::C::setenv_multi(
      "VAR1", "value1", 1,
      "VAR2", "value2", 0
  );

  Env::C::unsetenv_multi("VAR1", "VAR2");

=head1 DESCRIPTION

This module provides a Perl API for getenv(3), setenv(3) and
unsetenv(3). It also can return all the C<environ> variables.
You also can use C<setenv_multi> and C<getenv_multi> for bulk
operations with environment.

Sometimes Perl invokes modules with underlaying C APIs which rely on
certain environment variables to be set. If these variables are set in
Perl and the glue code doesn't worry to set them on the C level, these

lib/Env/C.pm view on Meta::CPAN

=head2 getenv($key)

Returns the value of the environment variable matching the key or
C<undef>.

=head2 setenv($key, $value, [$override])

The C<setenv()> function adds the variable C<$key> to the environment with the
value C<$value>, if C<$key> does not already exist. If C<$key> does exist in
the environment, then its value is changed to C<$value> if C<$override> is
non-zero; if C<$override> is zero or is not passed, then the value of C<$key>
is not changed.

=head2 unsetenv($key)

The unsetenv() function deletes the variable C<$key> from the
environment.

=head2 setenv_multi($key1, $value1, $override1, $key2, $value2, $override2, ...)

Similar to C<setenv>, but works with several variables at once.

=head2 unsetenv_multi(@keys)

Similar to C<unsetenv>, but works with several variables at once.

=head2 getallenv()

  my $ar_env = Env::C::getallenv();
  print join "\n", @$ar_env;

view all matches for this distribution

Env-Dot

2 results

view release on metacpan or search on metacpan

lib/Env/Dot/ScriptFunctions.pm view on Meta::CPAN

    my ($variable) = @_;
    my ( $name, $value, $want_export, $allow_interpolate ) =
      ( $variable->{'name'}, $variable->{'value'}, $variable->{'opts'}->{'export'}, $variable->{'opts'}->{'allow_interpolate'}, );
    my $quote = $allow_interpolate ? q{"} : q{'};
    if ($want_export) {
        return sprintf "setenv %s $quote%s$quote", $name, $value;
    }
    else {
        return sprintf "set %s $quote%s$quote", $name, $value;
    }
}

view all matches for this distribution

Env-Modify

2 results

view release on metacpan or search on metacpan

t/source.t view on Meta::CPAN

        $skip_csh = "can't retrieve csh status in Shell-GetEnv $Shell::GetEnv::VERSION";
        chomp($skip_csh);
    }
}

open SOURCE,'>','my_setenv.sh';
print SOURCE "setenv foo bar\n";
print SOURCE "setenv baz quux\n";
print SOURCE "setenv abc 123\n";
close SOURCE;

for my $sh (qw(csh tcsh)) {
    local %ENV = ();
    local $Env::Modify::SHELL = $sh;
  SKIP: {
      if ($sh eq 'csh' && $skip_csh) {
          skip "$skip_csh. Skipping csh", 5;
      }
      # this can fail on csh that require you to say "setenv foo $status"
      # instead of "setenv foo $?". Fix needed in Shell::GetEnv
      my $c0 = eval { system("$bin_true") };
      if ($@ && $@ =~ /error opening pipe/) {
          skip "shell $sh not available for testing", 5;
      }
      ok($c0 == 0, "/bin/true returns true in $sh");
      no warnings 'uninitialized';
      ok($ENV{foo} eq '' && $ENV{baz} eq '' && $ENV{'abc'} eq '',
         'initial environment is clean');
      my $c1 = eval { source("my_setenv.sh") };
      if ($@) {
          diag $@;
          ok(0, "source() return true status in $sh");
          skip "source() did not return true in $sh", 2;
      }

t/source.t view on Meta::CPAN

      ok($ENV{foo} eq 'bar', "export in $sh source successful");
      ok($ENV{baz} eq 'quux' && $ENV{abc} eq '123',
         "late export in $sh source successful");
    }
}
unlink "my_setenv.sh";

view all matches for this distribution

Env-Modulecmd

1 match

view release on metacpan or search on metacpan

testmod view on Meta::CPAN


# Copyright (c) 2001-2014, Morgan Stanley.
# Distributed under the terms of the GNU General Public License.
# Please see the copyright notice in Modulecmd.pm for more information.

setenv TESTMOD_LOADED yes

view all matches for this distribution

Envy

4 results

view release on metacpan or search on metacpan

envy.IN view on Meta::CPAN

    for my $z ($db->to_sync()) {
	my ($k,$v) = @$z;
	# hope that single-quoting is enough XXX
	if (defined $v) {
	    if ($is_csh) {
		print "setenv $k '$v';\n";
	    } else {
		print "$k='$v'; export $k;\n";
	    }
	} else {
	    if ($is_csh) {
		print "unsetenv $k;\n";
	    } else {
		print "unset $k;\n";
	    }
	}
    }

view all matches for this distribution

Erlang-Interface

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

magic_setamagic|||
magic_setarylen|||
magic_setcollxfrm|||
magic_setdbline|||
magic_setdefelem|||
magic_setenv|||
magic_sethint|||
magic_setisa|||
magic_setmglob|||
magic_setnkeys|||
magic_setpack|||

ppport.h view on Meta::CPAN

my_memset|||n
my_ntohl|||
my_pclose||5.004000|
my_popen_list||5.007001|
my_popen||5.004000|
my_setenv|||
my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf|5.009003||pvn
my_stat|||
my_strftime||5.007002|

view all matches for this distribution

Erlang-Parser

1 match

view release on metacpan or search on metacpan

t/basic.t view on Meta::CPAN

        Dir ->
            Dir
    end.

normalize_dir(False) when False =:= false orelse False =:= "" ->
    %% Erlang doesn't have an unsetenv, wtf.
    false;
normalize_dir(L) ->
    Dir = filename:absname(L),
    case filelib:is_dir(Dir) of
        false ->

t/basic.t view on Meta::CPAN


pushenv(L) ->
    [{K, os:getenv(K)} || K <- L].
popenv(L) ->
    F = fun ({K, false}) ->
                %% Erlang doesn't have an unsetenv, wtf.
                os:putenv(K, "");
            ({K, V}) ->
                os:putenv(K, V)
        end,
    lists:foreach(F, L).

view all matches for this distribution

Error-Pure

1 match

view release on metacpan or search on metacpan

Error/Pure/Intent.pod view on Meta::CPAN


 on bash
 export ERROR_PURE_TYPE=ANSIColor::AllError

 on tcsh
 setenv ERROR_PURE_TYPE ANSIColor::AllError

Alternative way is add formatter to code

 $Error::Pure::TYPE = 'ANSIColor::AllError';

view all matches for this distribution