PM/Password.pm

package Password;

use strict;
use warnings;
use utf8;

use Database;

use PasswordSave;
use PasswordShow;

sub new {
    my $class = shift;

    my $db = Database->new();

    my $p_save = PasswordSave->new();
    my $p_show = PasswordShow->new();

    my $self = {
        _db     => $db,
        _p_save => $p_save,
        _p_show => $p_show,
    };

    bless $self, $class;
    return $self;
}

# Check configuration. If it doesn't exist create it.
sub check_config {
    my ($self) = @_;
    if ( -e $ENV->{HOME} . "/.PM/db.sqlite" ) {
        return 0;
    }
    else {
        my $db = $self->{_db};
        $db->create_base();
    }
    return 0;
}

1;