package  Graph::GraphDb;

sub new{
    my $class = shift;
    my $self = {
        _database => shift,
        _host  => shift,
        _port       => shift,
        _user       => shift,
        _pass       => shift,
    };
    $self->$connector = DBIx::Connector->new(
        "dbi:mysql:database=".$self->{_database}.';host='.$self->{_host}.';port='.$self->{_port},
        $self->{_user},$self->{_pass},
        { AutoCommit => 1, }
    );
    $self->$connector->mode('ping');
    bless $self, $class;
    return $self;
}

sub check_url{
    my $self=shift;
    my $url=shift;
    my $sth = $self->connector->run(sub {
      $_->do("select * from screens where screentiny = '$url'");
    });
    $sth eq '0E0' ? return(1) : return(0);
}

1;