#!/usr/bin/perl
 
# 下面是简单的类实现
package MyClass;
 
sub new
{
   print "MyClass::new called\n";
   my $type = shift;            # 包名
   my $self = {};               # 引用空哈希
   return bless $self, $type;   
}
 
sub DESTROY
{
   print "MyClass::DESTROY called\n";
}
 
sub MyMethod
{
   print "MyClass::MyMethod called!\n";
}
 
 
# 继承实现
package MySubClass;
 
@ISA = qw( MyClass );
 
sub new
{
   print "MySubClass::new called\n";
   my $type = shift;            # 包名
   my $self = MyClass->new;     # 引用空哈希
   return bless $self, $type;  
}
 
sub DESTROY
{
   print "MySubClass::DESTROY called\n";
}
 
sub MyMethod
{
   my $self = shift;
   $self->SUPER::MyMethod();
   print "   MySubClass::MyMethod called!\n";
}
 
# 调用以上类的主程序
package main;
 
print "调用 MyClass 方法\n";
 
$myObject = MyClass->new();
$myObject->MyMethod();
 
print "调用 MySubClass 方法\n";
 
$myObject2 = MySubClass->new();
$myObject2->MyMethod();
 
print "创建一个作用域对象\n";
{
  my $myObject2 = MyClass->new();
}
# 自动调用析构函数
 
print "创建对象\n";
$myObject3 = MyClass->new();
undef $myObject3;
 
print "脚本执行结束...\n";
# 自动执行析构函数