程嶏清单14-14.txt

< linux网络编程工具>>配套源码

# The Coffee.pm file to illustrate inheritance.
 package Coffee;
 require Exporter;
 require Bean;
 @ISA = qw(Exporter, Bean);
 @EXPORT = qw(setImports, declareMain, closeMain);
 sub setCoffeeType  # set item
 {
     my ($class,$name) = @_;
     $class->{'Coffee'} = $name;
     print "Set coffee type to $name \n";
}
sub new  # constructor
{
    my $type = shift;
    my $this = Bean->new(); ##### <- LOOK HERE!!! ####
    $this->{'Coffee'} = 'Instant'; # unless told otherwise
    bless $this, $type;
    return $this;
}
1;