package SQL::Translator::Object::Column;
+use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(Bool Int Maybe Str);
use SQL::Translator::Types qw(Trigger);
required => 0
);
-no Moose;
__PACKAGE__->meta->make_immutable;
1;
package SQL::Translator::Object::Constraint;
+use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(HashRef Str);
use MooseX::AttributeHelpers;
required => 1
);
-no Moose;
__PACKAGE__->meta->make_immutable;
1;
package SQL::Translator::Object::Index;
+use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(HashRef Str);
use MooseX::AttributeHelpers;
required => 1
);
-no Moose;
__PACKAGE__->meta->make_immutable;
1;
package SQL::Translator::Object::Procedure;
+use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(HashRef Int Maybe Str);
use MooseX::AttributeHelpers;
default => sub { SQL::Translator::Object::Schema->new }
);
-no Moose;
__PACKAGE__->meta->make_immutable;
1;
package SQL::Translator::Object::Schema;
+use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(HashRef Maybe Str);
use MooseX::AttributeHelpers;
required => 0
);
-no Moose;
__PACKAGE__->meta()->make_immutable;
1;
package SQL::Translator::Object::Table;
+use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(HashRef Str);
use MooseX::AttributeHelpers;
required => 0
);
-no Moose;
__PACKAGE__->meta()->make_immutable;
1;
package SQL::Translator::Object::Trigger;
+use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(Str);
use SQL::Translator::Types qw();
has 'name' => (is => 'ro', isa => Str, required => 1);
-no Moose;
__PACKAGE__->meta->make_immutable;
1;
package SQL::Translator::Object::View;
+use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(HashRef Str);
use MooseX::AttributeHelpers;
required => 1
);
-no Moose;
__PACKAGE__->meta->make_immutable;
1;
package SQL::Translator::Parser;
+use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(Str);
use SQL::Translator::Types qw(DBIHandle);
print Dumper($schema);
};
-no Moose;
__PACKAGE__->meta->make_immutable;
+
1;
package SQL::Translator::Parser::DBI;
+use namespace::autoclean;
use Moose::Role;
use MooseX::Types::Moose qw(Maybe Str);
use DBI::Const::GetInfoType;
default => undef
);
-no Moose::Role;
-
sub _subclass {
my $self = shift;
package SQL::Translator::Parser::DBI::MySQL;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;
package SQL::Translator::Parser::DBI::Oracle;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;
package SQL::Translator::Parser::DBI::PostgreSQL;
+use namespace::autoclean;
use Moose::Role;
use MooseX::Types::Moose qw(Str);
-has 'schema_name' => (
- is => 'rw',
+has '+schema_name' => (
isa => Str,
required => 1,
lazy => 1,
default => 'public'
);
-no Moose::Role;
-
sub _get_view_sql {
my $self = shift;
my $view = shift;
package SQL::Translator::Parser::DBI::SQLite;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;
package SQL::Translator::Parser::DBI::Sybase;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;
package SQL::Translator::Parser::DDL;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;
package SQL::Translator::Parser::DDL::MySQL;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;
package SQL::Translator::Parser::DDL::Oracle;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;
package SQL::Translator::Parser::DDL::PostgreSQL;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;
package SQL::Translator::Parser::DDL::SQLite;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;
package SQL::Translator::Parser::DDL::Sybase;
+use namespace::autoclean;
use Moose::Role;
-no Moose::Role;
-
1;