class_of Util::apply_all_roles 2/2

[gitmo/Moose.git] / xt / pod_coverage.t

diff --git a/xt/pod_coverage.t b/xt/pod_coverage.t
index 38b0a69..4b45131 100644 (file)
--- 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
             )
     ],
@@ -38,8 +37,6 @@ my %trustme = (
     ],
     'Moose::Meta::Method::Constructor' => [
         qw( attributes
-            generate_constructor_method
-            generate_constructor_method_inline
             initialize_body
             meta_instance
             new
@@ -69,7 +66,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 ) {