view release on metacpan or  search on metacpan

lib/Emacs/EPL.pm  view on Meta::CPAN

	}
    }
}

# print_stuff (CALLBACK, VALUE)
sub print_stuff {
    my $callback = shift;

    # Optimize obviously non-circular cases.
    if ($callback eq 'unref') {
	# XXX all other callbacks take a single arg.
	print( "(epl-cb-unref");
	print( " $_") for @{$_[0]};
	print( ")");
    }
    elsif (! (tied ($_[0]) || ref ($_[0]))) {
	print( "(epl-cb-$callback ");
	&print_recursive;
	print( ")");
    }
    else {