From 001073c62057599fc82d67f2600ee132205c34e7 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 5 Mar 2002 12:03:26 +0000 Subject: [PATCH] add explanatory comment --- samples/render-search.pl | 9 +++++++++ 1 file changed, 9 insertions(+) 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; -- 1.7.10.4