From 94d2fc1815a919734353c942f224db1de4b4fcb8 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 7 Mar 2011 09:04:49 +0100
Subject: Django, org
* Added nxhtml, mostly for django support.
* Changed some org settings.
---
emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl | 95 +++++++++++++++++++++++
1 file changed, 95 insertions(+)
create mode 100644 emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl
(limited to 'emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl')
diff --git a/emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl b/emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl
new file mode 100644
index 0000000..562e695
--- /dev/null
+++ b/emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl
@@ -0,0 +1,95 @@
+#!/usr/bin/perl
+# heredoc_demo.pl doom@kzsu.stanford.edu
+# December 10, 2009
+
+use warnings;
+use strict;
+$|=1;
+use Data::Dumper;
+
+use File::Path qw( mkpath );
+use File::Basename qw( fileparse basename dirname );
+use File::Copy qw( copy move );
+use Fatal qw( open close mkpath copy move );
+use Cwd qw( cwd abs_path );
+
+use Env qw(HOME);
+
+our $VERSION = 0.01;
+my $prog = basename($0);
+
+use Getopt::Std;
+my %opt = ();
+getopts('d', \%opt);
+my $DEBUG = $opt{d} || 1; # TODO set default to 0 when in production
+
+my ($title, $incantation, $god);
+
+my $skull=<<"END_SQL";
+ SELECT id, god, incantation
+ FROM spell, pantheon
+ WHERE pantheon.id = spell.pantheon AND
+ pantheon.name = 'lovecraft'
+END_SQL
+
+my $phfftp=<<"END_HTML";
+$title
+
+$title
+Speak not the dread words of $incantation
+lest ye invoke the $god.
+
+END_HTML
+
+print $skull, "\n";
+print $phfftp, "\n";
+
+__END__
+
+=head1 NAME
+
+heredoc_demo.pl - (( TODO insert brief description ))
+
+=head1 SYNOPSIS
+
+ heredoc_demo.pl -[options] [arguments]
+
+ Options:
+ -d debug
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<-d>
+
+Turn on debug messages.
+
+=back
+
+=head1 DESCRIPTION
+
+B is a script which
+
+(( TODO insert explaination
+ This is stub documentation created by template.el. ))
+
+=head1 AUTHOR
+
+Joseph Brenner, Edoom@kzsu.stanford.eduE
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2009 by Joseph Brenner
+
+This program is free software; you can redistribute it and/or modify it
+under the terms of either: the GNU General Public License as published
+by the Free Software Foundation; or the Artistic License.
+
+See http://dev.perl.org/licenses/ for more information.
+
+=head1 BUGS
+
+None reported... yet.
+
+=cut
--
cgit v1.2.3-54-g00ecf