view release on metacpan or  search on metacpan

lib/Carrot/Productivity/Text/Placeholder/Miniplate/OS/Unix/File/Properties.pm  view on Meta::CPAN

}

sub set_subject
# /type method
# /effect ""
# //parameters
#	name
# //returns
{
	my ($this, $name) = @ARGUMENTS;

	unless (-e $name)
	{
		$file_not_found->raise_exception(
			{'file_name' => $name},
			ERROR_CATEGORY_SETUP);
	}
	$this->[ATR_SUBJECT] = $name;
	$this->[ATR_STAT] = [stat($name)];

	return;
}

sub syp_file_mode_octal
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return($_[THIS][ATR_STAT][RDX_STAT_MODE]);
}

sub syp_file_mode_rwx
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return(as_rwx_string($_[THIS][ATR_STAT][RDX_STAT_MODE]));
}

sub syp_file_owner_id
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return($_[THIS][ATR_STAT][RDX_STAT_UID]);
}

sub file_owner_name
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return((getpwuid($_[THIS][ATR_STAT][RDX_STAT_UID]))[RDX_GETPW_NAME]);
}

sub syp_file_group_id
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return($_[THIS][ATR_STAT][RDX_STAT_GID]);
}

sub syp_file_group_name
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return((getgrgid($_[THIS][ATR_STAT][RDX_STAT_GID]))[RDX_GETGR_NAME]);
}

sub syp_file_size
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return($_[THIS][ATR_STAT][RDX_STAT_SIZE]);
}

sub syp_file_timestamp_access
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return(localtime($_[THIS][ATR_STAT][RDX_STAT_ATIME]));
}

sub syp_file_timestamp_modification
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return(localtime($_[THIS][ATR_STAT][RDX_STAT_MTIME]));
}

sub syp_file_timestamp_status
# /type method
# /effect ""
# //parameters
# //returns
#	?
{
	return(localtime($_[THIS][ATR_STAT][RDX_STAT_CTIME]));