1;
現(xiàn)在，我們寫一個簡單的Perl腳本來使用該類的方法，下面是創(chuàng)建一個Java applet源代碼骨架的腳本代碼：
#!/usr/bin/perl
use Cocoa;
$cup = new Cocoa;
$cup->setImports( 'java.io.InputStream', 'java.net.*');
$cup->declareMain( "Msg" , "java.applet.Applet", "Runnable");
$cup->closeMain();

這段腳本創(chuàng)建了一個叫做Msg的Java applet，它擴(kuò)展(extend)了java.applet.Applet小應(yīng)用程序并使之可運行(runnable)，其中最后三行也可以寫成如下：
Cocoa::setImports($cup, 'java.io.InputStream', 'java.net.*');
Cocoa::declareMain($cup, "Msg" , "java.applet.Applet", "Runnable");
Cocoa::closeMain($cup);
其運行結(jié)果如下：
/*
** Created by Cocoa.pm
** Use at own risk
*/
import java.io.InputStream;
import java.net.*;

public class Msg extends java.applet.Applet implements Runnable {
}
注意：如果用->操作符調(diào)用方法（也叫間接調(diào)用），參數(shù)必須用括號括起來，如：$cup->setImports( 'java.io.InputStream', 'java.net.*');而雙冒號調(diào)用如：Cocoa::setImports($cup, 'java.io.InputStream', 'java.net.*');也可去掉括號寫成：Cocoa::setImports $cup, 'java.io.InputStream', 'java.net.*' ;
八、重載
有時需要指定使用哪個類的方法，如兩個不同的類有同名方法的時候。假設(shè)類Espresso和Qava都定義了方法grind，可以用::操作符指定使用Qava的方法：
$mess = Qava::grind("whole","lotta","bags");
Qava::grind($mess, "whole","lotta","bags");
可以根據(jù)程序的運行情況來選擇使用哪個類的方法，這可以通過使用符號引用去調(diào)用來實現(xiàn)：
$method = $local ? "Qava::" : "Espresso::";
$cup->{$method}grind(@args);
九、析構(gòu)函數(shù)
Perl跟蹤對象的鏈接數(shù)目，當(dāng)某對象的最后一個應(yīng)用釋放到內(nèi)存池時，該對象就自動銷毀。對象的析構(gòu)發(fā)生在代碼停止后，腳本將要結(jié)束時。對于全局變量而言，析構(gòu)發(fā)生在最后一行代碼運行之后。
如果你想在對象被釋放之前獲取控制權(quán)，可以定義DESTROY()方法。DESTROY()在對象將釋放前被調(diào)用，使你可以做一些清理工作。DESTROY()函數(shù)不自動調(diào)用其它DESTROY()函數(shù)，Perl不做內(nèi)置的析構(gòu)工作。如果構(gòu)造函數(shù)從基類多次bless，DESTROY()可能需要調(diào)用其它類的DESTROY()函數(shù)。當(dāng)一個對象被釋放時，其內(nèi)含的所有對象引用自動釋放、銷毀。
一般來說，不需要定義DESTROY()函數(shù)，如果需要，其形式如下：

sub DESTROY {
#
# Add code here.
#
}
因為多種目的，Perl使用了簡單的、基于引用的垃圾回收系統(tǒng)。任何對象的引用數(shù)目必須大于零，否則該對象的內(nèi)存就被釋放。當(dāng)程序退出時，Perl的一個徹底的查找并銷毀函數(shù)進(jìn)行垃圾回收，進(jìn)程中的一切被簡單地刪除。在UNIX類的系統(tǒng)中，這像是多余的，但在內(nèi)嵌式系統(tǒng)或多線程環(huán)境中這確實很必要。
十、繼承
類方法通過@ISA數(shù)組繼承，變量的繼承必須明確設(shè)定。下例創(chuàng)建兩個類Bean.pm和Coffee.pm，其中Coffee.pm繼承Bean.pm的一些功能。此例演示如何從基類（或稱超類）繼承實例變量，其方法為調(diào)用基類的構(gòu)造函數(shù)并把自己的實例變量加到新對象中。
Bean.pm代碼如下：

package Bean;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(setBeanType);

sub new {
my $type = shift;
my $this = {};
$this->{'Bean'} = 'Colombian';
bless $this, $type;
return $this;
}

#
# This subroutine sets the class name
sub setBeanType{
my ($class, $name) = @_;
$class->{'Bean'} = $name;
print "Set bean to $name \n";
}
1;
此類中，用$this變量設(shè)置一個匿名哈希表，將'Bean'類型設(shè)為'Colombian'。方法setBeanType()用于改變'Bean'類型，它使用$class引用獲得對對象哈希表的訪問。