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 / ObjTclHello / Application.pl < prev   
Encoding:
Perl Script  |  1996-08-09  |  303 b   |  12 lines
  1. # $Id: Application.pl,v 1.1 1996/07/26 05:18:07 pedja Exp $
  2.  
  3. package WO::ObjTclHello;
  4. use WOPerl;
  5. @IVARS=();
  6.  
  7. eval "use ObjTcl;";
  8. die "Note: This example works only if you have Objective-Framework (WOPerl/PRO).  I.e., this example does not work in WOPerl/lite.\n\n$@\n" if $@;
  9.  
  10. 'WO::ObjTclHello';
  11. # EOF
  12.