view release on metacpan or  search on metacpan

Define.pm  view on Meta::CPAN

    $s2 = $s->set_param('args', $ar) 	if exists $ar->{args}; 
    $s2 = $s->set_param('sel_sn2', $ar) if exists $ar->{sel_sn2} && !$s2; 
    if ($s2) { 
        my @b = split /:/, $s2;
        for my $i (0..$#b) { $r->{"a$i"} = $b[$i]; }
    }
    $ds = $ar->{dir_sep} 			if exists $ar->{dir_sep}; 
    $ds = ($^O =~ /^MSWin/i) ? '\\' : '/' 	if ! $ds; 
    $ar->{ds} = $ds				if ! exists $ar->{ds}; 

    my $usr_gid = (exists $ar->{guid} && $ar->{guid}) ? $ar->{guid} : ""; 
    my ($usr_sid,$usr_uid,$usr_tmo) = split /:/, $usr_gid; 
    $r->{guid}  = $usr_gid 	if $usr_gid; 
    $r->{pid}	= $pid;	$ar->{pid} = $pid;     
    $r->{sid}   = $sn;	$ar->{sid} = $sn; 
    $r->{dtm}	= strftime "%Y%m%d_%H%M%S", localtime; 
    $r->{dt} 	= substr $r->{dtm}, 0, 8;
    $r->{tm} 	= substr $r->{dtm}, 9, 6;
    $r->{y4} 	= substr $r->{dtm}, 0, 4;
    $r->{mm} 	= substr $r->{dtm}, 4, 2;
    $r->{dd} 	= substr $r->{dtm}, 6, 2;
    $r->{hh} 	= substr $r->{dtm}, 9, 2;
    $r->{mi} 	= substr $r->{dtm},11, 2;