Decrease prio of max/re clauses from 50->51 so the human result can b…

…e a nicer "at least X, at most Y" instead of "at most Y, at least X"
perlancar · Jan 18, 2013 · 3cc8040 · 3cc8040
1 parent fdb759c
commit 3cc8040
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 0 deletions.
diff --git a/lib/Data/Sah/Type/HasElems.pm b/lib/Data/Sah/Type/HasElems.pm
@@ -8,6 +8,7 @@ use Data::Sah::Util::Role 'has_clause';
 requires 'superclause_has_elems';
 
 has_clause 'max_len',
+    prio       => 51,
     arg        => ['int*' => {min=>0}],
     allow_expr => 1,
     code       => sub {

diff --git a/lib/Data/Sah/Type/Sortable.pm b/lib/Data/Sah/Type/Sortable.pm
@@ -26,6 +26,7 @@ has_clause 'xmin',
     },
     ;
 has_clause 'max',
+    prio       => 51,
     tags       => ['constraint'],
     arg        => 'any*',
     allow_expr => 1,
@@ -35,6 +36,7 @@ has_clause 'max',
     },
     ;
 has_clause 'xmax',
+    prio       => 51,
     tags       => ['constraint'],
     arg        => 'any*',
     allow_expr => 1,

diff --git a/lib/Data/Sah/Type/hash.pm b/lib/Data/Sah/Type/hash.pm
@@ -26,6 +26,7 @@ has_clause "keys",
     },
     ;
 has_clause "re_keys",
+    prio       => 51,
     tags       => ['constraint'],
     arg        => ['hash*' => {keys => 're*', values => 'schema*'}],
     allow_expr => 0,
@@ -47,6 +48,7 @@ has_clause "allowed_keys",
     allow_expr => 1,
     ;
 has_clause "allowed_keys_re",
+    prio       => 51,
     tags       => ['constraint'],
     arg        => 're*',
     allow_expr => 1,