BEGIN { use Exporter (); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); #set the version for version checking; uncomment to use $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw( &getTableDDL &getIndex &getMatchingTableDDL &getConstraints); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], # your exported package globals go here, # as well as any optionally exported functions @EXPORT_OK = qw(); $Exporter::Verbose=1 } #### my $dbh = $entity->getConnection(); # Grab a connection for general use my $obj = Dbschema->new($dbh); my ($val) = $obj->getMatchingTableDDLDbaPortal','Entity%'); ###this method getMatchingTableDDL is get called even if removed from exporter array in module !!!