CPAN::Groonga

ot::IRC persistent data storage with SQLite

use 5.014;
use exact;

use DBI;
use DBD::SQLite;
use JSON::XS;

our $VERSION = '1.42'; # VERSION

sub init {
    my ($bot) = @_;
    my $obj = __PACKAGE__-

         key TEXT,
            value TEXT
        )
    }) unless ($pre_exists);

    $self->{json} = JSON::XS->new->ascii;

    return $self;
}

sub get {
    my ( $self, $key ) = @_;
    my $namespa

tore::SQLite issue); key = $key; error = $e\n";
    }

    if ($value) {
        $value = $self->{json}->decode($value) || undef;
        $value = $value->{value} if ( ref $value eq 'HASH' and exists