db class
This commit is contained in:
parent
b21a30f208
commit
a6c12abdd4
13
Database.pm
13
Database.pm
@ -0,0 +1,13 @@
|
||||
package Database;
|
||||
|
||||
use DBI;
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
|
||||
my $self = {
|
||||
};
|
||||
|
||||
bless $self, $class;
|
||||
return $self;
|
||||
}
|
@ -4,7 +4,7 @@ use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use DBI;
|
||||
use Database;
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
@ -39,4 +39,4 @@ sub create_base {
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
1;
|
||||
|
Loading…
Reference in New Issue
Block a user