diff --git a/Database.pm b/Database.pm index e69de29..5b869d3 100644 --- a/Database.pm +++ b/Database.pm @@ -0,0 +1,13 @@ +package Database; + +use DBI; + +sub new { + my $class = shift; + + my $self = { + }; + + bless $self, $class; + return $self; +} diff --git a/Password.pm b/Password.pm index ab9864e..67b3488 100644 --- a/Password.pm +++ b/Password.pm @@ -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; \ No newline at end of file +1;