Follow Sah::Schemas convention

lib/Sah/Schema/sah/array_schema.pm

@@ -0,0 +1,17 @@
+package Sah::Schema::sah::array_schema;
+
+# DATE
+# VERSION
+
+our $schema = ['array' => {
+    min_len => 1,
+    max_len => 3,
+    elems => [
+        ['sah::type_name', {req=>1}, {}],
+        ['sah::clause_set', {}, {}],
+        ['sah::extras', {}, {}],
+    ],
+}, {}];
+
+1;
+# ABSTRACT: Sah schema (array form)

lib/Sah/Schema/sah/clause_set.pm

@@ -0,0 +1,27 @@
+package Sah::Schema::sah::clause_set;
+
+# DATE
+# VERSION
+
+our $schema = [defhash => {
+    _prop => {
+        # from defhash
+        v => {},
+        defhash_v => {},
+        name => {},
+        summary => {},
+        description => {},
+        tags => {},
+        default_lang => {},
+        x => {},
+
+        # incomplete
+        clause => {
+        },
+        clset => {
+        },
+    },
+}];
+
+1;
+# ABSTRACT: Sah clause set

lib/Sah/Schema/sah/extras.pm

@@ -0,0 +1,10 @@
+package Sah::Schema::sah::extras;
+
+# DATE
+# VERSION
+
+our $schema = ['defhash' => {
+}, {}];
+
+1;
+# ABSTRACT: Sah extras (third element in array schema)

lib/Sah/Schema/sah/schema.pm

@@ -0,0 +1,14 @@
+package Sah::Schema::sah::schema;
+
+# DATE
+# VERSION
+
+our $schema = [any => {
+    of => [
+        'sah::str_schema',
+        'sah::array_schema',
+    ],
+}, {}];
+
+1;
+# ABSTRACT: Sah schema

lib/Sah/Schema/sah/str_schema.pm

@@ -0,0 +1,15 @@
+package Sah::Schema::sah::str_schema;
+
+# DATE
+# VERSION
+
+use 5.010;
+use strict;
+use warnings;
+
+our $schema = ['str' => {
+    match => '\A[A-Za-z][A-Za-z0-9_]*(::[A-Za-z][A-Za-z0-9_]*)*\*?\z',
+}, {}];
+
+1;
+# ABSTRACT: Sah schema (string form)

lib/Sah/Schema/sah/type_name.pm

@@ -0,0 +1,11 @@
+package Sah::Schema::sah::type_name;
+
+# DATE
+# VERSION
+
+our $schema = [str => {
+    match => '\A[A-Za-z][A-Za-z0-9_]*(::[A-Za-z][A-Za-z0-9_]*)*\z',
+}, {}];
+
+1;
+# ABSTRACT: Type name

lib/Sah/Schemas/Sah.pm

@@ -0,0 +1,7 @@
+package Sah::Schemas::Sah;
+
+# DATE
+# VERSION
+
+1;
+# ABSTRACT: Sah schemas for Sah