# Test module

package XyzBase;	# partial inheritance of Foo

use Foo;

require Exporter;
use vars ( @ISA );
@ISA = qw( Foo );

# Implementation of the pure virtual function; if we don't do this,
# you won't be able to successfully call new() for this class.
# We don't implement the virtual function, so the constructor isn't
# meaningful.
#sub table_name() { 'NO_TABLE' }

# We can implement methods that would be "static" in C++, but not
# any method that takes an object (because we can't new Xyz() ).
# is not meaningful for other classes derived from Foo.  
sub base_func
{
   my $class = shift @_;

   # we can still inherit from this class, so objects might exist.
   # convert this into a classname for consistency.
   $class = ref $class if ref $class;

   printf "Local function for %s, called from %s\n",
          __PACKAGE__, $class;
   return( 1 );
} # base_func