Exclude some more MM::Role::Composite methods. Re-tidy

diff --git a/xt/author/pod_coverage.t b/xt/author/pod_coverage.t
index c6bffe7..d7e3e93 100644 (file)
--- a/xt/author/pod_coverage.t
+++ b/xt/author/pod_coverage.t
@@ -26,7 +26,7 @@ my %trustme = (
     'Moose::Meta::Attribute::Native::MethodProvider::Counter' => ['.+'],
     'Moose::Meta::Attribute::Native::MethodProvider::Hash'    => ['.+'],
     'Moose::Meta::Attribute::Native::MethodProvider::String'  => ['.+'],
-    'Moose::Meta::Class'     => [
+    'Moose::Meta::Class'                                      => [
         qw( check_metaclass_compatibility
             construct_instance
             create_error
@@ -64,8 +64,9 @@ my %trustme = (
             wrap_method_body
             )
     ],
-    'Moose::Meta::Role::Composite' => ['add_method'],
-    'Moose::Role'                  => [
+    'Moose::Meta::Role::Composite' =>
+        [ 'get_method', 'get_method_list', 'has_method', 'add_method' ],
+    'Moose::Role' => [
         qw( after
             around
             augment
@@ -83,7 +84,8 @@ my %trustme = (
     'Moose::Meta::TypeConstraint::Class' =>
         [qw( equals is_a_type_of is_a_subtype_of )],
     'Moose::Meta::TypeConstraint::Enum' => [qw( constraint equals )],
-    'Moose::Meta::TypeConstraint::DuckType' => [qw( constraint equals get_message )],
+    'Moose::Meta::TypeConstraint::DuckType' =>
+        [qw( constraint equals get_message )],
     'Moose::Meta::TypeConstraint::Parameterizable' => ['.+'],
     'Moose::Meta::TypeConstraint::Parameterized'   => ['.+'],
     'Moose::Meta::TypeConstraint::Role'  => [qw( equals is_a_type_of )],