view release on metacpan or  search on metacpan

README  view on Meta::CPAN

            }

            sub id {
                    my ($this) = @_;
                    return $this->{UID};
            }

            sub preload
            {
                    my ($id) = @_;
                    return if getpwuid($id);
                    return getpwnam($id) if getpwnam($id);
                    die;
            }

            sub postload
            {
                    my ($this) = @_;
                    my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,
                            $shell,$expire) = getpwuid($this->{UID});
                    $this->{SHELL} = $shell;
            }

            sub presave
            {
                    my ($this, $old) = @_;
                    my $id = $this->{UID};
                    mkdir("$top/users/$id", 0700);
                    delete $this->{SHELL};
            }

Transaction.pod  view on Meta::CPAN

	}

	sub id {
		my ($this) = @_;
		return $this->{UID};
	}

	sub preload
	{
		my ($id) = @_;
		return if getpwuid($id);
		return getpwnam($id) if getpwnam($id);
		die;
	}

	sub postload
	{
		my ($this) = @_;
		my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,
			$shell,$expire) = getpwuid($this->{UID});
		$this->{SHELL} = $shell;
	}

	sub presave
	{
		my ($this, $old) = @_;
		my $id = $this->{UID};
		mkdir("$top/users/$id", 0700);
		delete $this->{SHELL};
	}