Changeset 16281 for trunk/Nebulous/t/Test/Nebulous.pm
- Timestamp:
- Feb 1, 2008, 3:51:29 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous/t/Test/Nebulous.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous/t/Test/Nebulous.pm
r13251 r16281 1 1 # Copyright (C) 2004 Joshua Hoblitt 2 2 # 3 # $Id: Nebulous.pm,v 1.1 5 2007-05-04 23:36:46jhoblitt Exp $3 # $Id: Nebulous.pm,v 1.16 2008-02-02 01:51:29 jhoblitt Exp $ 4 4 5 5 package Test::Nebulous; 6 6 7 7 use strict; 8 9 our $VERSION = '0.01'; 10 11 use base qw( Exporter ); 8 12 9 13 use DBI; … … 12 16 use Nebulous::Server::SQL; 13 17 14 my $dsn = "DBI:mysql:database=test:host=localhost"; 15 my $user = "test"; 16 my $passwd = ""; 18 our @EXPORT = qw( $NEB_DB $NEB_USER $NEB_PASS ); 17 19 18 my $dbh = DBI->connect( $dsn, $user, $passwd ); 20 our $NEB_DB = "DBI:mysql:database=nebulous:host=localhost"; 21 our $NEB_USER = "nebulous"; 22 our $NEB_PASS = '@neb@'; 23 24 my $dbh = DBI->connect( $NEB_DB, $NEB_USER, $NEB_PASS ); 19 25 my $sql = Nebulous::Server::SQL->new; 20 26
Note:
See TracChangeset
for help on using the changeset viewer.
