#!/usr/bin/perl -w
######################################################################
# inherit.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

######################################################################
package Basepac;                # base class

sub new {                       # constructor
  my $class = shift;
  my $self = {};

  $self->{'basevar'} = 'BASE';  # initialize base class variable
  bless $self, $class;
}

######################################################################
package Deripac;                # derived class

@ISA = qw ( Basepac );          # inheritance

sub new {                       # constructor
  my $class = shift;
  my $self = Basepac->new();

  $self->{'derivar'} = 'DERI';  # initialize variable of the
                                # derived class
  bless $self, $class;
}

sub derimethod {                # output local variables and variables
my $self = shift;             # inherited in the derived class

  print "basevar=", $self->{'basevar'}, " ",
        "derivar=", $self->{'derivar'}, "\n";
}

######################################################################
package main;                   # main program

$derobj = Deripac->new();       # create object
$derobj->derimethod();          # output variables