view release on metacpan or  search on metacpan

Eroot.pm  view on Meta::CPAN

# Turn the stack into perl code.
# This will create a method named Continue in the EROOT class.
# This assumes that keys and values for the "objects" can be safely
# represented as text within single quotes.
#

## private
sub WriteStack {
	my $self = shift;
	my( $key, $name, $s ) = @_;
	my $fh = (caller)[0] . "::$name";
	my $i = @$s;
	my( $type, @v, $v );
	my( $junk, $word, $ident, $stuff );
	my @roots = ();
	my @keep = ();
	my @keepwake = ();
	my @wake = ();
	my %wake = ();
	my( $e1, $e2, $elem, $whack );
	my @delayed = ();