my $refs = {};
visit_refs (
# only look at the closed over stuffs
- refs => [ grep { length ref $_ } map { values %{$_->[2]} } grep { ref $_ eq 'ARRAY' } values %Sub::Quote::QUOTED ],
+ refs => [ grep { length ref $_ } (
+
+ # old style Sub::Quote
+ ( map { values %{ $_->[2]} } grep { ref $_ eq 'ARRAY' } values %Sub::Quote::QUOTED ),
+
+ # new style Sub::Quote
+ ( map { values %{ $_->{captures}} } grep { ref $_ eq 'HASH' } values %Sub::Quote::QUOTED ),
+
+ )],
seen_refs => $refs,
action => sub { 1 },
);
or
DBICTest::RunMode->is_plain
) {
- for (qw(indirect multidimensional bareword::filehandles)) {
- exists $INC{ Module::Runtime::module_notional_filename($_) }
- and
- $tb->ok(0, "$_ load should not have been attempted!!!" )
+ for my $mod (qw(indirect multidimensional bareword::filehandles)) {
+ ( my $fn = "$mod.pm" ) =~ s|::|/|g;
+
+ $tb->ok(0, "Load of '$mod' should not have been attempted!!!" )
+ if exists $INC{$fn};
}
}
}