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 -&gt; new ;
  - 
  - !]
  +</PRE>
  +<P>
  +<PRE> -]
   </PRE>
   <P>
   <PRE> &lt;html&gt;
  
  
  

Reply via email to