This commit is contained in:
Difrex 2014-04-27 23:11:52 +04:00
parent b21a30f208
commit a6c12abdd4
2 changed files with 15 additions and 2 deletions

View File

@ -0,0 +1,13 @@
package Database;
use DBI;
sub new {
my $class = shift;
my $self = {
};
bless $self, $class;
return $self;
}

View File

@ -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;