view release on metacpan or  search on metacpan

examples/Eval.pa  view on Meta::CPAN

	# delete so we only do one hop..
	my $to = delete($self->{Host});
	if ($to) {
		@message = ("$self->{Return}\n", $self->store());
	} else {
		unless ($to = delete($self->{Return})) {
			print "I've been abandoned!\n" if $self->{verbose};
			return;
		}
		@message = eval "$self->{Eval}";
		push @message, "ERROR: $@" if $@; # capture errors, if any
	}

	# transfer self | send result to remote host...
	print "Sending message to $to\n" if $self->{verbose};
	my $msg = new Agent::Message(
		Body      => [ @message ],
		Transport => TCP,
		Address   => $to
	);
	if ($msg->send) { print "done.\n" if $self->{verbose}; }