skinny-repl.pl

use strict;
use warnings;
use DBIx::Skinny::SQL;
use Term::ReadLine;

my $rs;
my $PROMPT = ">>> ";
my $term = Term::ReadLine->new('skinny-repl');
my $OUT = $term->OUT || \*STDOUT;
while ( defined( my $line = $term->readline($PROMPT) ) ) {
    $rs ||= DBIx::Skinny::SQL->new;
    local $@;
    my $result = eval $line;
    warn $@ if $@;
    if ( $result && $rs ) {
        printf $OUT "SQL:\n\n%s\nBinds: %s", $rs->as_sql, join(', ', @{ $rs->bind });
    }
}