From a6c12abdd4ac2189c33f0d690e232d2c1577d5e9 Mon Sep 17 00:00:00 2001 From: Difrex Date: Sun, 27 Apr 2014 23:11:52 +0400 Subject: [PATCH] db class --- Database.pm | 13 +++++++++++++ Password.pm | 4 ++-- 2 files changed, 15 insertions(+), 2 deletions(-) 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;