richter at apache
Aug 7, 2005, 10:01 AM
Views: 973
Permalink
|
|
cvs commit: embperl/test/html/EmbperlObject/app epoapp.htm epoapp.pl
|
|
richter 2005/08/07 10:01:33
Added: test/html/EmbperlObject/app epoapp.htm epoapp.pl
Log:
add missing test files
Revision Changes Path
1.1 embperl/test/html/EmbperlObject/app/epoapp.htm
Index: epoapp.htm
===================================================================
APP
-> epapp
[$ foreach $key (sort keys %$epapp) $]
[+ $key +] = [+ $epapp -> {$key} +]
[$endforeach$]
<-
-> epreq
[$ foreach $key (sort keys %$epreq) $]
[+ $key +] = [+ $epreq -> {$key} +]
[$endforeach$]
<-
END APP
1.1 embperl/test/html/EmbperlObject/app/epoapp.pl
Index: epoapp.pl
===================================================================
sub init
{
my ($self, $r) = @_ ;
$r -> {initdoner} = 1 ;
$self -> {initdonea} = 1 ;
$self -> {initdoneb} = 2 ;
return 0 ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
cvs commit: embperl/test/html/EmbperlObject/app epoapp.htm epoapp.pl