richter 00/08/08 22:17:09
Modified: embperl EmbperlObject.pod.5.html
Log:
Embperl Webpages - Changes
Revision Changes Path
1.2 +15 -6 modperl-site/embperl/EmbperlObject.pod.5.html
Index: EmbperlObject.pod.5.html
===================================================================
RCS file: /home/cvs/modperl-site/embperl/EmbperlObject.pod.5.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- EmbperlObject.pod.5.html 2000/07/17 05:30:01 1.1
+++ EmbperlObject.pod.5.html 2000/08/09 05:17:08 1.2
@@ -27,10 +27,9 @@
<P>
<PRE> [!
-
- $req = shift ;
-
- sub new
+</PRE>
+<P>
+<PRE> sub new
{
my $self = shift ;
</PRE>
@@ -44,10 +43,20 @@
sub title { 'Title not given' } ;
</PRE>
<P>
+<PRE> !]
+</PRE>
+<P>
+<PRE> [-
+
+ # get the request object of the current request
+ $req = shift ;
+</PRE>
+<P>
<PRE> # here we call the method new
$req -> new ;
-
- !]
+</PRE>
+<P>
+<PRE> -]
</PRE>
<P>
<PRE> <html>