use strict;
use Test::More;
-use List::Util 'first';
use Module::Runtime 'require_module';
use lib 'maint/.Generated_Pod/lib';
use DBICTest;
my $exceptions = {
'DBIx::Class' => {
ignore => [qw/
- MODIFY_CODE_ATTRIBUTES
component_base_class
- mk_classdata
- mk_classaccessor
/]
},
'DBIx::Class::Optional::Dependencies' => {
},
'DBIx::Class::ResultSource' => {
ignore => [qw/
+ BUILD
+ BUILDARGS
compare_relationship_keys
pk_depends_on
resolve_condition
/]
},
+ 'DBIx::Class::_TempExtlib*' => { skip => 1 },
+
'DBIx::Class::Admin::*' => { skip => 1 },
'DBIx::Class::ClassResolver::PassThrough' => { skip => 1 },
'DBIx::Class::Componentised' => { skip => 1 },
SKIP: {
my ($match) =
- first { $module =~ $_ }
+ grep { $module =~ $_ }
(sort { length $b <=> length $a || $b cmp $a } (keys %$ex_lookup) )
;