+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_podcoverage';
use warnings;
use strict;
use Test::More;
-use List::Util 'first';
-use lib qw(t/lib maint/.Generated_Pod/lib);
+use Module::Runtime 'require_module';
+use lib 'maint/.Generated_Pod/lib';
use DBICTest;
use namespace::clean;
ignore => [qw/
MODIFY_CODE_ATTRIBUTES
component_base_class
+ inject_base
mk_classdata
mk_classaccessor
/]
store_column
get_column
get_columns
+ get_dirty_columns
has_column_loaded
/],
},
SKIP: {
my ($match) =
- first { $module =~ $_ }
+ grep { $module =~ $_ }
(sort { length $b <=> length $a || $b cmp $a } (keys %$ex_lookup) )
;
skip ("$module exempt", 1) if ($ex->{skip});
+ skip ("$module not loadable", 1) unless eval { require_module($module) };
+
# build parms up from ignore list
my $parms = {};
$parms->{trustme} =