Boilerplate for public SQLA(1) functions

diff --git a/lib/SQL/Abstract/Compat.pm b/lib/SQL/Abstract/Compat.pm
index 1b231dd..aa2bba6 100644 (file)
--- a/lib/SQL/Abstract/Compat.pm
+++ b/lib/SQL/Abstract/Compat.pm
@@ -1,6 +1,29 @@
 use MooseX::Declare;
 
 class SQL::Abstract::Compat {
+
+  use Moose::Util::TypeConstraints;
+  use MooseX::Types -declare => [qw/LogicEnum/];
+
+  enum LogicEnum, qw(OR AND);
+
+  clean;
+
+  has logic => (
+    is => 'rw',
+    isa => LogicEnum,
+    default => 'AND'
+  );
+
+  method select(Str|ArrayRef|ScalarRef $from, ArrayRef|Str $fields,
+                Str|ScalarRef|ArrayRef|HashRef $where?,
+                Str|ScalarRef|ArrayRef|HashRef $order?) {
+    return ("", );
+  }
+
+  method where(Str|ScalarRef|ArrayRef|HashRef $where?,
+               Str|ScalarRef|ArrayRef|HashRef $order?) {
+  }
 }
 
 =head1 NAME