[!
sub new
{
my $self = shift ;
$self -> {fontsize} = 1 ;
}
sub title
{
'default' ;
}
!]
[-
$self = shift ;
$self -> new ;
-]
<html>
<head>
<title>Example using Objects: [+ $self -> title +]</title>
</head>
<body>
[- Execute ('epohead.htm') -]
[- Execute ('*') -]
[- Execute ('epofoot.htm') -]
</body>
</html>
distrib
>
Mandriva
>
2010.0
>
i586
>
media
>
contrib-release
>
by-pkgid
>
2846c2b6fe3a964eff4f3b3c12eee018
>
files
>
419
