use Moo 1.000003;
our ( $DEFAULT_SUB, $DEBUG, $ERROR );
-our $VERSION = '0.11013';
+our $VERSION = '0.11013_02';
$DEBUG = 0 unless defined $DEBUG;
$ERROR = "";
use Sub::Quote qw(quote_sub);
use SQL::Translator::Producer;
use SQL::Translator::Schema;
-use SQL::Translator::Utils qw(throw ex2err);
+use SQL::Translator::Utils qw(throw ex2err carp_ro);
$DEFAULT_SUB = sub { $_[0]->schema } unless defined $DEFAULT_SUB;
has producer_type => ( is => 'rwp', init_arg => undef );
+around producer_type => carp_ro('producer_type');
+
has producer_args => ( is => 'rw', default => quote_sub(q{ +{} }) );
around producer_args => sub {
has parser_type => ( is => 'rwp', init_arg => undef );
+around parser_type => carp_ro('parser_type');
+
has parser_args => ( is => 'rw', default => quote_sub(q{ +{} }) );
around parser_args => sub {
predicate => '_has_schema',
);
+around schema => carp_ro('schema');
+
around reset => sub {
my $orig = shift;
my $self = shift;