use Test::More;
-eval "use Test::Pod::Coverage 1.04";
-plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+use Test::Requires {
+ 'Test::Pod::Coverage' => '1.04', # skip all if not installed
+};
# This is a stripped down version of all_pod_coverage_ok which lets us
# vary the trustme parameter per module.
-my @modules = all_modules();
+my @modules = grep { !/Accessor::Native.*$/ } all_modules();
plan tests => scalar @modules;
my %trustme = (
],
'Moose::Meta::Attribute::Native::MethodProvider::Array' => ['.+'],
'Moose::Meta::Attribute::Native::MethodProvider::Bool' => ['.+'],
+ 'Moose::Meta::Attribute::Native::MethodProvider::Code' => ['.+'],
'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
raise_error
+ reinitialize
superclasses
)
],
'Moose::Meta::Role' => [
qw( alias_method
get_method_modifier_list
+ reinitialize
reset_package_cache_flag
update_package_cache_flag
wrap_method_body
)
],
- 'Moose::Meta::Role::Composite' => ['add_method'],
- 'Moose::Role' => [
+ 'Moose::Meta::Mixin::AttributeCore' => ['.+'],
+ 'Moose::Meta::Role::Composite' =>
+ [ 'get_method', 'get_method_list', 'has_method', 'add_method' ],
+ 'Moose::Role' => [
qw( after
around
augment
'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 )],
- 'Moose::Meta::TypeConstraint::Union' => ['compile_type_constraint'],
- 'Moose::Util' => ['add_method_modifier'],
+ 'Moose::Meta::TypeConstraint::Role' => [qw( equals is_a_type_of )],
+ 'Moose::Meta::TypeConstraint::Union' =>
+ [qw( compile_type_constraint coercion has_coercion)],
+ 'Moose::Util' => ['add_method_modifier'],
+ 'Moose::Util::MetaRole' => ['apply_metaclass_roles'],
'Moose::Util::TypeConstraints' => ['find_or_create_type_constraint'],
);
for my $module ( sort @modules ) {
+
my $trustme = [];
if ( $trustme{$module} ) {
my $methods = join '|', @{ $trustme{$module} };