view release on metacpan or  search on metacpan

lib/Carrot/Personality/Elemental/Scalar/Textual/File_Name.pm  view on Meta::CPAN

package Carrot::Personality::Elemental::Scalar::Textual::File_Name
# /type class
# /capability ""
{
	use strict;
	use warnings 'FATAL' => 'all';

	BEGIN {
		require('Carrot/Personality/Elemental/Scalar/Textual/File_Name./manual_modularity.pl');
	} #BEGIN

	Carrot::Meta::Greenhouse::Package_Loader::provide(
		my $stat_class = '::Personality::Valued::Perl5::Stat');

# =--------------------------------------------------------------------------= #

sub descend_value
# /type method
# /effect ""
# //parameters
#	value
# //returns
#	?
{
	return(${$_[THIS]} .= OS_FS_PATH_DELIMITER. $_[SPX_VALUE]);
}

sub descend
# /type method
# /effect ""
# //parameters
#	value
# //returns
#	?
{
	return(${$_[THIS]} .= OS_FS_PATH_DELIMITER. ${$_[THAT]});
}

sub change_mode
# /type method
# /effect ""
# //parameters
#	value
# //returns
#	?
{
	return(chown($_[SPX_VALUE], ${$_[THIS]}));
}

sub change_owner
# /type method
# /effect ""
# //parameters
#	uid
#	gid
# //returns
#	?
{
	my ($this, $uid, $gid) = @ARGUMENTS;
	return(chown($uid, $gid, $$this));
}

sub change_root_directory
# /type method
# /effect ""
# //parameters
#	value
# //returns
#	?
{
	return(chroot(${$_[THIS]}));
}

sub change_timestamps
# /type method
# /effect ""
# //parameters
#	atime
#	mtime
# //returns
#	?
{
	my ($this, $atime, $mtime) = @ARGUMENTS;
	return(chown($atime, $mtime, $$this));
}

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

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

sub create_hard_link
# /type method
# /effect ""
# //parameters
#	value
# //returns
#	?
{
	return(link(${$_[THIS]}, $_[SPX_VALUE]));
}

sub create_symbolic_link
# /type method
# /effect ""
# //parameters
#	value
# //returns
#	?
{
	return(truncate(${$_[THIS]}, $_[SPX_VALUE]));
}

sub forward_execution
# /type method
# /effect ""
# /parameters *
# //returns
{
	my $this = shift(\@ARGUMENTS);
	exec($$this, @ARGUMENTS);
}

sub remove_directory
# /type method
# /effect ""
# //parameters
# //returns
#	?