home *** CD-ROM | disk | FTP | other *** search
/ Peanuts NeXT Software Archives / Peanuts-2.iso / Developer / webobjects / extensions / win-nt / WOPerl-lite-10e7.exe / Examples / WOPerl / HelloWorld / Main.wo / Main.pl < prev    next >
Encoding:
Perl Script  |  1996-08-09  |  562 b   |  27 lines
  1. # $Id: Main.pl,v 1.1 1996/07/26 05:18:01 pedja Exp $
  2.  
  3. package WO::Main;
  4. use WOPerl;
  5.  
  6. @IVARS=qw(nameString);
  7. %FLAGS=(
  8. #  'rawSet' => 1,
  9. #  'traceInvoke' => 1,
  10. );
  11.  
  12. sub sayHello {
  13.   my($self)=@_;
  14.   my $nextPage=$WOApp->pageWithName("Hello");
  15.   my $name=$self->{'nameString'};
  16.  
  17.   # If rawSet is 1, the value pushed-into $self->{'nameString'} is an
  18.   # NSString.  Otherwise, the value pushed-in is a plain Perl string.
  19.   print "nameString class: ", $name->class, "\n" if($FLAGS{'rawSet'});
  20.  
  21.   $nextPage->setNameString($name);
  22.   return $nextPage;
  23. }
  24.  
  25. 'WO::Main';
  26. # EOF
  27.