view release on metacpan or  search on metacpan

lib/CXC/DB/DDL/Table.pm  view on Meta::CPAN

package CXC::DB::DDL::Table;

# ABSTRACT: A Table

use v5.26;
use strict;
use warnings;

our $VERSION = '0.21';

use List::Util qw( any );
use Ref::Util  qw( is_ref is_arrayref is_coderef is_plain_hashref);

use CXC::DB::DDL::Failure;
use CXC::DB::DDL::Constants -all;
use CXC::DB::DDL::Types -all;
use Type::Params    qw( signature_for  );
use Types::Standard qw( ArrayRef Bool Dict Enum HashRef InstanceOf Object Optional Str Undef );
use Types::Common::String qw( NonEmptyStr );

use Moo;
use experimental 'signatures', 'postderef', 'declared_refs';

use namespace::clean -except => 'has';

with 'CXC::DB::DDL::CloneClear';

# use after namespace::clean to avoid cleaning out important bits.
use MooX::StrictConstructor;







use constant FIELD_CLASS => 'CXC::DB::DDL::Field';

my sub croak {
    require Carp;
    goto \&Carp::croak;
}

has _name => (
    is       => 'ro',
    init_arg => 'name',
    isa      => NonEmptyStr,
    required => 1,
);













has schema => (
    is        => 'ro',
    isa       => NonEmptyStr,
    predicate => 1,
);