From: Mike Taylor <mike@indexdata.com>
Date: Tue, 5 Mar 2002 12:03:26 +0000 (+0000)
Subject: add explanatory comment
X-Git-Tag: release.0.0.8.lau~43
X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=commitdiff_plain;h=001073c62057599fc82d67f2600ee132205c34e7

add explanatory comment
---

diff --git a/samples/render-search.pl b/samples/render-search.pl
index 352cce2..30af4fe 100755
--- a/samples/render-search.pl
+++ b/samples/render-search.pl
@@ -1,5 +1,14 @@
 #!/usr/bin/perl -w
 
+# $Header: /home/cvsroot/simpleserver/samples/render-search.pl,v 1.2 2002-03-05 12:03:26 mike Exp $
+#
+# Trivial example of programming using the "augmented classes"
+# paradigm.  This tiny SimpleServer-based Z39.50 server logs Type-1
+# searches in human-readable form.  It works by augmenting existing
+# classes (the RPN-node types) with additional methods -- something
+# that most OO languages would definitely not allow, but Perl does.
+# And it's sort of cute.
+
 use Net::Z3950::SimpleServer;
 use strict;