package MySchema::Sneaky;

use base qw/DBIx::Class/;


__PACKAGE__->load_components(qw/Core/);

__PACKAGE__->table("DUMMY"); # madness going on

# scalar ref to the sql statement
__PACKAGE__->result_source_instance->name(
\<<EOSQL);
(

    select foo, bar
    from baz
) 
EOSQL

__PACKAGE__->add_columns(
    qw/ foo bar /
);

##</code><code>##


package MySchema;


use strict;
use base qw/DBIx::Class::Schema/;

sub sqlt_deploy_hook {
    my ($self, $sqlt_schema) = @_;
    my @pesky_tables = grep /^SCALAR\(0x[0-9A-F]+\)/i, keys %{ $sqlt_schema->{tables} };
    $sqlt_schema->drop_table( $_ ) for @pesky_tables;
    local $" = ', '; warn "Removed @pesky_tables from list of tables to deploy";
    use Data::Dumper;
#die Dumper $sqlt_schema;

}