21 lines
202 B
Perl
21 lines
202 B
Perl
package Password;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
use Database;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
|
|
my $self = {
|
|
_home => $home,
|
|
};
|
|
|
|
bless $self, $class;
|
|
return $self;
|
|
}
|
|
|
|
1;
|