package db_data; use strict; use vars qw(@EXPORT_OK @ISA); use Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw($DB_URL $DB_USER $DB_PASSWD); use vars qw( $DB_NAME $DB_HORST $DB_PORT $DB_USER $DB_PASSWD $DB_URL ); $DB_NAME = "testdb"; $DB_HORST = "localhost"; $DB_PORT = "3306"; $DB_USER = "Test"; $DB_PASSWD = "Test"; $DB_URL = "DBI:mysql:database=$DB_NAME;host=$DB_HORST;port=$DB_PORT"; 1;