#!/usr/bin/perl -w

use strict;

use Abc;
use Xyz;

my $abc1 = new Abc( 'Fred' );  
my $xyz1 = new Xyz( 'Ethel' );  

# test specialized functions
$abc1->abc_func();
$xyz1->xyz_func();

# test common functions
$abc1->doit();
$xyz1->doit();

# This function has a class name, not an object of that type,
# but it can still access methods of that class.
sub class_specific_func
{
   my ( $class ) = @_;
   $class = ref $class if ref $class;	# in case object was passed in

   my $table = 'unknown';
   $table = $class->table_name() if $class->can( 'table_name' );

   printf "Table for %s is %s, database is %s\n", $class, $table,
	  $class->database_name();
}

class_specific_func( 'Abc' );
class_specific_func( 'Xyz' );
class_specific_func( 'XyzBase' );

# calls of static methods
XyzBase->base_func();
Xyz->base_func();