Replace lazy_build with lazt + builder

[dbsrgits/SQL-Abstract-2.0-ish.git] / lib / SQL / Abstract / Types.pm

use MooseX::Declare;
class SQL::Abstract::Types {
  use Moose::Util::TypeConstraints;
  use MooseX::Types -declare => [qw/NameSeparator AST ArrayAST HashAST/];
  use MooseX::Types::Moose qw/ArrayRef Str Int Ref HashRef/;

  subtype ArrayAST, as ArrayRef,
    where { is_Str($_->[0]) && substr($_->[0],0,1) eq '-' },
    message { "First key of arrayref must be a string starting with '-'"; };

  subtype HashAST, as HashRef,
    where { exists $_->{-type} && is_Str($_->{-type}) },
    message { "No '-type' key, or it is not a string" };

  subtype AST, as ArrayAST|HashAST; 

  subtype NameSeparator,
    as ArrayRef[Str];
    #where { @$_ == 1 ||| @$_ == 2 },
    #message { "Name separator must be one or two elements" };

  coerce NameSeparator, from Str, via { [ $_ ] };

}

1;