Select Code to Download

# Abstract class for consideration
#   name() and doit() are a base class object methods.
...

   return(1);
} # doit

# Test module derived from Foo.

...
          __PACKAGE__, $obj->name(), $obj->table_name();
   return( 1 );
} # abc_func

# Test module

...
          __PACKAGE__, $class;
   return( 1 );
} # base_func

# Test module

...
          __PACKAGE__, $obj->name(), $obj->table_name();
   return( 1 );
} # xyz_func

#!/usr/bin/perl -w

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

Local function for Abc -- my name is Fred, my table is ABC_TABLE
Local function for Xyz -- my name is Ethel, my table is XYZ_TABLE
...
Table for XyzBase is unknown, database is Foobase
Local function for XyzBase, called from XyzBase
Local function for XyzBase, called from Xyz