sys::process

# #############################################################
# ### Generated by GenerateVarMap.PL.
# ###
# ### Please edit the master and *not* this file.
# ### Date of render: Fri Mar  7 13:15:43 2008
##############################################################

package sys::process;

use strict;
use warnings;
use version;
our $VERSION = qv('0.2');

use Carp 'confess';
use Scalar::Util 'blessed';



use Class::Dot2;
use sys::process::group;
use sys::process::user;
{

    has "group"      => (isa => "sys::process::group");
    has "user"      => (isa => "sys::process::user");

    sub group {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("group")
            : sys::process::group->new();
    }
    sub user {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("user")
            : sys::process::user->new();
    }

    sub euid {
                    if ($_[1]) {
                return $> = $_[1];
            };
        
                return $>; # SCALAR        
    }
    sub uid {
                    if ($_[1]) {
                return $< = $_[1];
            };
        
                return $<; # SCALAR        
    }
    sub name {
                    if ($_[1]) {
                return $0 = $_[1];
            };
        
                return $0; # SCALAR        
    }
    sub egid {
                    if ($_[1]) {
                return $) = $_[1];
            };
        
                return $); # SCALAR        
    }
    sub pid {
                    if ($_[1]) {
                return $$ = $_[1];
            };
        
                return $$; # SCALAR        
    }
    sub gid {
                    if ($_[1]) {
                return $( = $_[1];
            };
        
                return $(; # SCALAR        
    }

}

1;

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
# End:
# vim: expandtab tabstop=4 shiftwidth=4 shiftround

__END__