my @modules = all_modules();
plan tests => scalar @modules;
-my %trustme =
- ( 'MooseX::ClassAttribute' => [ 'init_meta', 'class_has' ],
- 'MooseX::ClassAttribute::Trait::Class' => [ 'compute_all_applicable_class_attributes' ],
- 'MooseX::ClassAttribute::Meta::Method::Accessor' => [ '.+' ]
- );
-
-for my $module ( sort @modules )
-{
+my %trustme = (
+ 'MooseX::ClassAttribute' => [ 'init_meta', 'class_has' ],
+ 'MooseX::ClassAttribute::Meta::Method::Accessor' => ['.+'],
+ 'MooseX::ClassAttribute::Meta::Role::Attribute' => ['new'],
+ 'MooseX::ClassAttribute::Trait::Class' =>
+ ['compute_all_applicable_class_attributes'],
+ 'MooseX::ClassAttribute::Trait::Mixin::HasClassAttributes' => [
+ qw( add_class_attribute get_class_attribute_map remove_class_attribute )
+ ],
+);
+
+for my $module ( sort @modules ) {
my $trustme;
- if ( $trustme{$module} )
- {
+ if ( $trustme{$module} ) {
my $methods = join '|', @{ $trustme{$module} };
- $trustme = [ qr/^(?:$methods)/ ];
+ $trustme = [qr/^(?:$methods)/];
}
- pod_coverage_ok( $module, { trustme => $trustme },
- "Pod coverage for $module"
- );
+ pod_coverage_ok(
+ $module, { trustme => $trustme },
+ "Pod coverage for $module"
+ );
}