From: Dave Rolsky <autarch@houseabsolute.urth.org>
Date: Fri, 27 Mar 2009 01:13:45 +0000 (-0500)
Subject: fix some pod coverage issues
X-Git-Tag: 0.73~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a6c8c47d76b17c8a7335be2df37efa7dae56b6b;p=gitmo%2FMoose.git

fix some pod coverage issues
---

diff --git a/lib/Moose/Util/TypeConstraints.pm b/lib/Moose/Util/TypeConstraints.pm
index 14a1c86..4656708 100644
--- a/lib/Moose/Util/TypeConstraints.pm
+++ b/lib/Moose/Util/TypeConstraints.pm
@@ -1094,6 +1094,11 @@ L<Moose::Meta::TypeConstraint::Role> object for that role name.
 The C<$options> is a hash reference that will be passed to the
 L<Moose::Meta::TypeConstraint::Role> constructor (as a hash).
 
+=item B<create_enum_type_constraint($name, $values)>
+
+Given a enum name this function will create a new
+L<Moose::Meta::TypeConstraint::Enum> object for that enum name.
+
 =item B<find_or_parse_type_constraint($type_name)>
 
 Given a type name, this first attempts to find a matching constraint
diff --git a/xt/pod_coverage.t b/xt/pod_coverage.t
index 101a889..ef11aee 100644
--- a/xt/pod_coverage.t
+++ b/xt/pod_coverage.t
@@ -20,7 +20,6 @@ my %trustme = (
         qw( check_metaclass_compatibility
             construct_instance
             create_error
-            create_immutable_transformer
             raise_error
             )
     ],
@@ -69,14 +68,20 @@ my %trustme = (
             super
             with )
     ],
+    'Moose::Meta::TypeCoercion' => ['compile_type_coercion'],
     'Moose::Meta::TypeCoercion::Union' => ['compile_type_coercion'],
     'Moose::Meta::TypeConstraint' => [ 'compile_type_constraint', 'union' ],
     'Moose::Meta::TypeConstraint::Class' =>
         [qw( equals is_a_type_of is_a_subtype_of )],
+    'Moose::Meta::TypeConstraint::Enum' =>
+        [qw( constraint equals )],
     'Moose::Meta::TypeConstraint::Parameterizable' => ['.+'],
     'Moose::Meta::TypeConstraint::Parameterized'   => ['.+'],
+    'Moose::Meta::TypeConstraint::Role' =>
+        [qw( equals is_a_type_of )],
     'Moose::Meta::TypeConstraint::Union' => ['compile_type_constraint'],
     'Moose::Util'                        => ['add_method_modifier'],
+    'Moose::Util::TypeConstraints'       => ['find_or_create_type_constraint'],
 );
 
 for my $module ( sort @modules ) {