From bb2bf61723962222952d2f68da497f8391dc6a5e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 9 Oct 2012 20:52:44 -0500
Subject: initial implementation

---
 lib/MooseX/Validation/Doctypes.pm        | 35 ++++++++++++++++++++++++++++++++
 lib/MooseX/Validation/Doctypes/Errors.pm | 17 ++++++++++++++++
 2 files changed, 52 insertions(+)
 create mode 100644 lib/MooseX/Validation/Doctypes/Errors.pm

(limited to 'lib/MooseX/Validation')

diff --git a/lib/MooseX/Validation/Doctypes.pm b/lib/MooseX/Validation/Doctypes.pm
index e69de29..668c4f0 100644
--- a/lib/MooseX/Validation/Doctypes.pm
+++ b/lib/MooseX/Validation/Doctypes.pm
@@ -0,0 +1,35 @@
+package MooseX::Validation::Doctypes;
+use strict;
+use warnings;
+
+use MooseX::Meta::TypeConstraint::Doctype;
+
+use Sub::Exporter -setup => {
+    exports => ['doctype'],
+    groups => {
+        default => ['doctype'],
+    },
+};
+
+sub doctype {
+    my $name;
+    $name = shift if @_ > 1;
+
+    my ($doctype) = @_;
+
+    # XXX validate name
+
+    my $args = {
+        ($name ? (name => $name) : ()),
+        doctype            => $doctype,
+        package_defined_in => scalar(caller),
+    };
+
+    my $tc = MooseX::Meta::TypeConstraint::Doctype->new($args);
+    Moose::Util::TypeConstraints::register_type_constraint($tc)
+        if $name;
+
+    return $tc;
+}
+
+1;
diff --git a/lib/MooseX/Validation/Doctypes/Errors.pm b/lib/MooseX/Validation/Doctypes/Errors.pm
new file mode 100644
index 0000000..d510670
--- /dev/null
+++ b/lib/MooseX/Validation/Doctypes/Errors.pm
@@ -0,0 +1,17 @@
+package MooseX::Validation::Doctypes::Errors;
+use Moose;
+
+has errors => (
+    is        => 'ro',
+    predicate => 'has_errors',
+);
+
+has extra_data => (
+    is        => 'ro',
+    predicate => 'has_extra_data',
+);
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+1;
-- 
cgit v1.2.3-54-g00ecf