lib/SQL/Translator/Object/View.pm

   1 use MooseX::Declare;
   2 class SQL::Translator::Object::View extends SQL::Translator::Object::Table {
   3     use MooseX::Types::Moose qw(HashRef Str);
   4     use SQL::Translator::Types qw(Column Schema);
   5
   6     has 'sql' => (
   7         is => 'rw',
   8         isa => Str,
   9     );
  10
  11     around add_column(Column $column does coerce) {
  12         die "Can't use column name " . $column->name if $self->exists_column($column->name) || $column->name eq '';
  13         $column->table($self);
  14         return $self->$orig($column->name, $column);
  15     }
  16 }