richter 00/07/16 22:30:03
Modified: embperl index.html
Added: embperl EmbperlObject.pod.5.html EmbperlObject.pod.6.html
Log:
Embperl Webpages - Changes
Revision Changes Path
1.108 +5 -0 modperl-site/embperl/index.html
Index: index.html
===================================================================
RCS file: /home/cvs/modperl-site/embperl/index.html,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -r1.107 -r1.108
--- index.html 2000/06/22 12:09:53 1.107
+++ index.html 2000/07/17 05:30:01 1.108
@@ -140,6 +140,11 @@
</tr>
<tr bgcolor="#bFcDdA">
<td vAlign="top"><img height="13" src="bullet.gif" width="13"></td>
+ <td vAlign="top">17. July 2000</td>
+ <td><font face="Helvetica,Arial" size="2">Embperl 1.3b4
released</font></td>
+ </tr>
+ <tr bgcolor="#bFcDdA">
+ <td vAlign="top"><img height="13" src="bullet.gif" width="13"></td>
<td vAlign="top">22. Juni 2000<p><a
href="http://conferences.oreilly.com/"><img src="perlconf4_speaker.gif"
width="130" height="129"></a></td>
<td>
@@ -297,7 +302,7 @@
<blockquote>
<p><font color="#808080" size=1><hr>
HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS
<[EMAIL PROTECTED]>
- Last Update $Id: index.html,v 1.107 2000/06/22 12:09:53 richter Exp $</font></p>
+ Last Update $Id: index.html,v 1.108 2000/07/17 05:30:01 richter Exp $</font></p>
</blockquote>
</td></tr><!--msnavigation--></table></body>
</html>
1.1 modperl-site/embperl/EmbperlObject.pod.5.html
Index: EmbperlObject.pod.5.html
===================================================================
<HTML>
<HEAD>
<TITLE>Example for using method calls</TITLE>
<LINK REV="made" HREF="mailto:[EMAIL PROTECTED]">
</HEAD>
<BODY bgcolor="#FFFFFF">
<blockquote>
<blockquote>
<H1><strong>
<A NAME="Example_for_using_method_calls">Example for using method
calls</a></strong></h1>
</blockquote>
</blockquote>
<img src="line.jpg" align="left" alt="________" WIDTH="732" HEIGHT="35">
<BR CLEAR=LEFT>
<blockquote>
<blockquote>
[<a href="index.html">HOME</a>] [<a
href="EmbperlObject.pod.cont.html">CONTENT</a>] [<a
href="EmbperlObject.pod.4.html">PREV (Basic Example)</a>] [<a
href="EmbperlObject.pod.6.html">NEXT (Author)</a>] <br><hr>
<P>
(Everything not given here is the same as in the example above)
<P>
<STRONG>/foo/base.htm:</STRONG>
<P>
<PRE> [!
$req = shift ;
sub new
{
my $self = shift ;
</PRE>
<P>
<PRE> # here we attach some data to the request object
$self -> {fontsize} = 3 ;
}
</PRE>
<P>
<PRE> # Here we give a default title
sub title { 'Title not given' } ;
</PRE>
<P>
<PRE> # here we call the method new
$req -> new ;
!]
</PRE>
<P>
<PRE> <html>
<head>
<title>[+ $req -> title +]</title>
</head>
<body>
[- Execute ('head.htm') -]
[- Execute ('*') -]
[- Execute ('foot.htm') -]
</body>
</html>
</PRE>
<P>
<STRONG>/foo/head.htm:</STRONG>
<P>
<PRE> [#
here we use the fontsize
Note that
$foo = $_[0]
is the same as writing
$foo = shift
#]
</PRE>
<P>
<PRE> <font size=[+ $_[0] -> {fontsize} +]>header</font>
</PRE>
<P>
<STRONG>/foo/sub/page2.htm:</STRONG>
<P>
<PRE> [!
</PRE>
<P>
<PRE> sub new
{
my $self = shift ;
</PRE>
<P>
<PRE> # here we overwrite the new method form base.htm
$self -> {fontsize} = 5 ;
}
</PRE>
<P>
<PRE> # Here we overwrite the default title
sub title { 'Title form page 2' } ;
</PRE>
<P>
<PRE> !]
</PRE>
<P>
<PRE> PAGE 2
</PRE>
<P>
<PRE>
</PRE>
<p>[<a href="index.html">HOME</a>] [<a
href="EmbperlObject.pod.cont.html">CONTENT</a>] [<a
href="EmbperlObject.pod.4.html">PREV (Basic Example)</a>] [<a
href="EmbperlObject.pod.6.html">NEXT (Author)</a>] <br>
<font
color="#808080">___________________________________________________________________________________<br>
HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / <a
href="http://www.ecos.de/">ecos gmbh</a>
</font></p>
</blockquote>
</blockquote>
</td></tr></table></body>
</html>
</BODY>
</HTML>
1.1 modperl-site/embperl/EmbperlObject.pod.6.html
Index: EmbperlObject.pod.6.html
===================================================================
<HTML>
<HEAD>
<TITLE>Author</TITLE>
<LINK REV="made" HREF="mailto:[EMAIL PROTECTED]">
</HEAD>
<BODY bgcolor="#FFFFFF">
<blockquote>
<blockquote>
<H1><strong>
<A NAME="Author">Author</a></strong></h1>
</blockquote>
</blockquote>
<img src="line.jpg" align="left" alt="________" WIDTH="732" HEIGHT="35">
<BR CLEAR=LEFT>
<blockquote>
<blockquote>
[<a href="index.html">HOME</a>] [<a
href="EmbperlObject.pod.cont.html">CONTENT</a>] [<a
href="EmbperlObject.pod.5.html">PREV (Example for using method calls)</a>]
<br><hr>
<P>
G. Richter (<A HREF="mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A>)
<p>[<a href="index.html">HOME</a>] [<a
href="EmbperlObject.pod.cont.html">CONTENT</a>] [<a
href="EmbperlObject.pod.5.html">PREV (Example for using method calls)</a>]
<br>
<font
color="#808080">___________________________________________________________________________________<br>
HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / <a
href="http://www.ecos.de/">ecos gmbh</a>
</font></p>
</blockquote>
</blockquote>
</td></tr></table></body>
</html>
</BODY>
</HTML>
