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 ""

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

# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Instance
{
	return($stat_class->constructor(lstat(${$_[THIS]})));
}

sub concurrent_execution
# /type method
# /effect ""
# /parameters *
# //returns
#	::Personality::Abstract::Number
{
	my $this = shift(\@ARGUMENTS);
	return(system($$this, @ARGUMENTS));
}

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

sub has_size_zero
# /type method
# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Boolean
{
	return(-z ${$_[THIS]});
}

sub has_size_greater_zero
# /type method
# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Boolean
{
	return(-s ${$_[THIS]});
}

sub has_bit_sticky
# /type method
# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Boolean
{
	return(-k ${$_[THIS]});
}

sub has_bit_gid
# /type method
# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Boolean
{
	return(-g ${$_[THIS]});
}

sub has_bit_uid
# /type method
# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Boolean
{
	return(-u ${$_[THIS]});
}

sub exists
# /type method
# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Boolean
{
	return(-e ${$_[THIS]});
}

sub is_readable_effectively
# /type method
# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Boolean
{
	return(-r ${$_[THIS]});
}

sub is_writable_effectively
# /type method
# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Boolean
{
	return(-w ${$_[THIS]});
}


sub is_executable_effectively
# /type method
# /effect ""
# //parameters
# //returns
#	::Personality::Abstract::Boolean
{
	return(-x ${$_[THIS]});
}