view release on metacpan or  search on metacpan

erc  view on Meta::CPAN

#    or
#	print("turtle record:\n$rec\n")
#    ;

# xxx     add %{ and %} to anvl decoding
# xxx     decide on good name for short form and long form ERC
# xxx make this File::ANVL::getpara
#
sub getpara { my( $filehandle )=@_;

	local $/ = "";			# set "paragraph" input mode
					# $/ == $INPUT_RECORD_SEPARATOR
	$filehandle	and return <$filehandle>;

	# If no $filehandle, behave as if supporting "<>" aka "<ARGV>".
	my $rec = <ARGV>;		# (test print "$. ";)
	close ARGV	if eof;		# reset line numbers between files
	return $rec;
}

sub do_turtle { my( @nodes )=@_;