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 ac1561b..4b45131 100644 (file)
--- a/xt/pod_coverage.t
+++ b/xt/pod_coverage.t
@@ -20,15 +20,40 @@ my %trustme = (
         qw( check_metaclass_compatibility
             construct_instance
             create_error
-            create_immutable_transformer
             raise_error
             )
     ],
-    'Moose::Meta::Method' => ['throw_error'],
-    'Moose::Meta::Method::Constructor' =>
-        [qw( initialize_body intialize_body)],
-    'Moose::Meta::Method::Destructor' => ['initialize_body'],
-    'Moose::Role'                     => [
+    'Moose::Meta::Method'           => ['throw_error'],
+    'Moose::Meta::Method::Accessor' => [
+        qw( generate_accessor_method
+            generate_accessor_method_inline
+            generate_clearer_method
+            generate_predicate_method
+            generate_reader_method
+            generate_reader_method_inline
+            generate_writer_method
+            generate_writer_method_inline
+            )
+    ],
+    'Moose::Meta::Method::Constructor' => [
+        qw( attributes
+            initialize_body
+            meta_instance
+            new
+            options
+            )
+    ],
+    'Moose::Meta::Method::Destructor' => [ 'initialize_body', 'options' ],
+    'Moose::Meta::Role'               => [
+        qw( alias_method
+            get_method_modifier_list
+            reset_package_cache_flag
+            update_package_cache_flag
+            wrap_method_body
+            )
+    ],
+    'Moose::Meta::Role::Composite' => ['add_method'],
+    'Moose::Role'                  => [
         qw( after
             around
             augment
@@ -41,6 +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 ) {