ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
dinfo
/
dinfo.pm
Revision:
1.2
Committed:
Mon Aug 25 03:29:34 2003 UTC
(20 years, 8 months ago) by
root
Branch:
MAIN
Changes since
1.1
:
+1 -109 lines
Log Message:
*** empty log message ***
File Contents
#
User
Rev
Content
1
root
1.1
package dinfo;
2
3
use Carp;
4
5
use PApp::SQL;
6
7
sub new {
8
my ($class, $dsn, $user, $pass) = @_;
9
10
my $self = bless {
11
dbh => (PApp::SQL::connect_cached "dinfo::", $dsn, $user, $pass),
12
}, $class;
13
14
$self;
15
}
16
17
root
1.2
1;