package App::DBBrowser::DB::MyPlugin;
use warnings;
use strict;
use DBI;

sub new {
    my ( $class, $info ) = @_;
    bless $info, $class;
}

sub driver {
    my ( $self ) = @_;
    return 'SQLite';
}

sub db_handle {
    my ( $self, $db ) = @_;
    my $dbh = DBI->connect( "DBI:SQLite:dbname=$db", '', '', {
        RaiseError      => 1,
        PrintError      => 0,
        sqlite_unicode  => 1,
    }) or die $DBI::errstr;
    return $dbh;
}

sub databases {
    my ( $self ) = @_;
    return [ '/home/me/demo.sqlite' ];
}

1;