# Test module derived from Foo.

package Abc;

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.
sub table_name() { 'ABC_TABLE' }

# This function implements a method that my class can do, but
# is not meaningful for other classes derived from Foo.  
sub abc_func
{
   my $obj = shift @_;
   my @args = @_;
   printf "Local function for %s -- my name is %s, my table is %s\n",
          __PACKAGE__, $obj->name(), $obj->table_name();
   return( 1 );
} # abc_func