Carrot

 view release on metacpan or  search on metacpan

lib/Carrot/Continuity/Coordination/Episode/Paragraph/TCP_Socket_IO/Buffer/Output.pm  view on Meta::CPAN

	return(FLOW_STOP) if ($this->[ATR_STATE] == BST_CLOSED);

	my $l = length(${$_[SPX_DATA]});
	return(FLOW_NOCHANGE) if ($l == 0);
	push(@{$this->[ATR_CHUNKS]}, [$_[SPX_DATA], 0, $l, 0]);
	$this->[ATR_SIZE] += $l;

	return($this->update);
}

sub update
# /type method
# /effect ""
# //parameters
# //returns
#	Mica::Projection::Flow_Control
{
	my ($this) = @ARGUMENTS;

	return(FLOW_STOP) if ($this->[ATR_STATE] == BST_CLOSED);
	if (($#{$this->[ATR_CHUNKS]} == ADX_NO_ELEMENTS)

lib/Carrot/Individuality/Singular/Process/Child.pm  view on Meta::CPAN

#	instances
# //returns
{
	my $this = shift(\@ARGUMENTS);

	$local_subscription->unsubscribe('pid_change', @ARGUMENTS);
	return;
}


sub update
# /type method
# /effect ""
# //parameters
# //returns
{
	return if (${$_[THIS]} == $PROCESS_PID);
	${$_[THIS]} = $PROCESS_PID;
	$local_subscription->trigger_event('pid_change');
	return;
}

lib/Carrot/Individuality/Singular/Process/Epoch_Time.pm  view on Meta::CPAN

#	::Personality::Abstract::Instance
{
	my $class = shift(\@ARGUMENTS);

	my $this = \$now;
	bless($this, $class);
	$this->update;
	return($this);
}

sub update
# /type method
# /effect ""
# //parameters
# //returns
{
	unless ($t0 == $now)
	{
		$time_manipulation_detected->raise_exception(
			{'now' => $now,
			 't0' => $t0},

lib/Carrot/Individuality/Singular/Process/Id.pm  view on Meta::CPAN

#	instance  +multiple
# //returns
{
	my $this = shift(\@ARGUMENTS);

	$local_subscription->unsubscribe('pid_change', @ARGUMENTS);
	return;
}


sub update
# /type method
# /effect ""
# //parameters
# //returns
{
	return if (${$_[THIS]} == $PROCESS_PID);
	${$_[THIS]} = $PROCESS_ID;
	$local_subscription->trigger_event('pid_change');
	return;
}

lib/Carrot/Meta/Greenhouse/Writable_Overlay.pm  view on Meta::CPAN

	print STDERR "CREATE CACHE $index_file\n" if (TRACE_FLAG);

	my $datetime = scalar(gmtime(time()));
	$file_content->overwrite_from($index_file,
		"# Automatically created on $datetime GMT.\n"
		."# Manual changes will get lost.\n");

	return;
}

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

	if (substr($file_name, 0, 1) ne '/')
	{
			$prefix = '';

lib/Carrot/Meta/Monad/Managed_File.pm  view on Meta::CPAN

			$this->[ATR_NEEDS_UPDATE] = IS_TRUE;
		}
	} else {
			$this->[ATR_NEEDS_UPDATE] = IS_TRUE;
	}
	$this->[ATR_NAME] = $file_name;

	return;
}

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

	my $file_name = $this->[ATR_NAME];
	$file_name->consider_regular_content;