1 files changed, 39 insertions, 0 deletions
diff --git a/lib/Params/Validate/Constants.pm b/lib/Params/Validate/Constants.pm
new file mode 100644
index 0000000..6204282
--- /dev/null
+++ b/lib/Params/Validate/Constants.pm
@@ -0,0 +1,39 @@
+package Params::Validate::Constants;
+
+use strict;
+use warnings;
+
+our $VERSION = '1.20';
+
+our @ISA = 'Exporter';
+
+our @EXPORT = qw(
+    SCALAR
+    ARRAYREF
+    HASHREF
+    CODEREF
+    GLOB
+    GLOBREF
+    SCALARREF
+    HANDLE
+    BOOLEAN
+    UNDEF
+    OBJECT
+    UNKNOWN
+);
+
+sub SCALAR ()    { 1 }
+sub ARRAYREF ()  { 2 }
+sub HASHREF ()   { 4 }
+sub CODEREF ()   { 8 }
+sub GLOB ()      { 16 }
+sub GLOBREF ()   { 32 }
+sub SCALARREF () { 64 }
+sub UNKNOWN ()   { 128 }
+sub UNDEF ()     { 256 }
+sub OBJECT ()    { 512 }
+
+sub HANDLE ()  { 16 | 32 }
+sub BOOLEAN () { 1 | 256 }
+
+1;