=cut
-use Moo 1.000003;
-use SQL::Translator::Utils qw(parse_list_arg ex2err throw);
+use Moo;
+use SQL::Translator::Utils qw(parse_list_arg ex2err throw carp_ro);
use SQL::Translator::Types qw(schema_obj);
use SQL::Translator::Role::ListAttr;
use SQL::Translator::Schema::Constants;
has comments => (
is => 'rw',
- coerce => sub { ref($_[0]) eq 'ARRAY' ? $_[0] : [$_[0]] },
+ coerce => quote_sub(q{ ref($_[0]) eq 'ARRAY' ? $_[0] : [$_[0]] }),
default => quote_sub(q{ [] }),
);
has is_trivial_link => ( is => 'lazy', init_arg => undef );
+around is_trivial_link => carp_ro('is_trivial_link');
+
sub _build_is_trivial_link {
my $self = shift;
return 0 if $self->is_data;
has is_data => ( is => 'lazy', init_arg => undef );
+around is_data => carp_ro('is_data');
+
sub _build_is_data {
my $self = shift;