X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Frelease%2Fpod-coverage.t;h=46e260d40a58146fc7ef6f21088b9a76917e1a92;hb=2282de1272a9607ed77ebfcfc82a56624862f48a;hp=a470346c2e5e71f14ae3d5b9a317fe89290833bc;hpb=ef64ae42a119b685d7b8dc986b360eaa5e000947;p=gitmo%2FMoose.git diff --git a/xt/release/pod-coverage.t b/xt/release/pod-coverage.t index a470346..46e260d 100644 --- a/xt/release/pod-coverage.t +++ b/xt/release/pod-coverage.t @@ -11,15 +11,21 @@ use Test::Requires { # This is a stripped down version of all_pod_coverage_ok which lets us # vary the trustme parameter per module. -my @modules = grep { !/Accessor::Native.*$/ } all_modules(); +my @modules + = grep { !/Accessor::Native.*$/ && !/::Conflicts$/ } all_modules(); plan tests => scalar @modules; my %trustme = ( 'Class::MOP' => [ 'DEBUG_NO_META', 'HAVE_ISAREV', + 'IS_RUNNING_ON_5_10', 'subname', 'in_global_destruction', + 'check_package_cache_flag', + 'load_first_existing_class', + 'is_class_loaded', + 'load_class', ], 'Class::MOP::Attribute' => ['process_accessors'], 'Class::MOP::Class' => [ @@ -100,9 +106,10 @@ my %trustme = ( 'Class::MOP::Mixin::AttributeCore' => ['.+'], 'Class::MOP::Mixin::HasAttributes' => ['.+'], 'Class::MOP::Mixin::HasMethods' => ['.+'], - 'Class::MOP::Module' => ['create'], 'Class::MOP::Package' => [ 'get_method_map', 'wrap_method_body' ], + 'Moose' => ['init_meta', 'throw_error'], 'Moose::Error::Confess' => ['new'], + 'Moose::Error::Util' => ['.+'], 'Moose::Meta::Attribute' => [ qw( interpolate_class throw_error @@ -135,6 +142,7 @@ my %trustme = ( generate_reader_method_inline generate_writer_method generate_writer_method_inline + new ) ], 'Moose::Meta::Method::Constructor' => [ @@ -159,6 +167,7 @@ my %trustme = ( 'Moose::Meta::Mixin::AttributeCore' => ['.+'], 'Moose::Meta::Role::Composite' => [ 'get_method', 'get_method_list', 'has_method', 'add_method' ], + 'Moose::Object' => ['BUILDALL', 'DEMOLISHALL'], 'Moose::Role' => [ qw( after around @@ -169,11 +178,12 @@ my %trustme = ( inner override super - with ) + with + init_meta ) ], 'Moose::Meta::TypeCoercion' => ['compile_type_coercion'], 'Moose::Meta::TypeCoercion::Union' => ['compile_type_coercion'], - 'Moose::Meta::TypeConstraint' => ['compile_type_constraint'], + 'Moose::Meta::TypeConstraint' => [qw( compile_type_constraint inlined )], 'Moose::Meta::TypeConstraint::Class' => [qw( equals is_a_type_of is_a_subtype_of )], 'Moose::Meta::TypeConstraint::Enum' => [qw( constraint equals )], @@ -182,11 +192,17 @@ my %trustme = ( 'Moose::Meta::TypeConstraint::Parameterizable' => ['.+'], 'Moose::Meta::TypeConstraint::Parameterized' => ['.+'], 'Moose::Meta::TypeConstraint::Role' => [qw( equals is_a_type_of )], - 'Moose::Meta::TypeConstraint::Union' => - [qw( compile_type_constraint coercion has_coercion)], + 'Moose::Meta::TypeConstraint::Union' => [ + qw( compile_type_constraint + coercion + has_coercion + can_be_inlined + inline_environment ) + ], 'Moose::Util' => ['add_method_modifier'], 'Moose::Util::MetaRole' => ['apply_metaclass_roles'], 'Moose::Util::TypeConstraints' => ['find_or_create_type_constraint'], + 'Moose::Util::TypeConstraints::Builtins' => ['.+'], ); for my $module ( sort @modules ) {