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>