The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Mock::BasicBindColumn;
use strict;
use parent qw/Teng/;

sub setup_test_db {
    shift->do(q{
        CREATE TABLE mock_basic_bind_column (
            id   int,
            uid  bigint,
            name text,
            body blob,
            raw  bin,
            primary key ( id )
        )
    });
}

1;