Perl教学第十三篇Perl的面向对象编程(下)

1;
现在，我们写一个简单的perl脚本来使用该类的方法，下面是创建一个java applet源代码骨架的脚本代码：
#!/usr/bin/perl
use cocoa;
$cup = new cocoa;
$cup->setimports( 'java.io.inputstream', 'java.net.*');
$cup->declarem