4 use File::Spec::Functions;
5 use File::Spec::Unix (); # need this for %INC munging
10 eval { require Devel::Hide };
12 eval { require Sub::Name };
13 plan skip_all => "Devel::Hide required for this test in presence of Sub::Name"
17 Devel::Hide->import('Sub/Name.pm');
19 require Class::Accessor::Grouped;
22 # rerun the regular 3 tests under the assumption of no Sub::Name
23 for my $tname (qw/accessors.t accessors_ro.t accessors_wo.t/) {
25 subtest "$tname without Sub::Name (pass $_)" => sub {
26 my $tfn = catfile($Bin, $tname);
29 qw/AccessorGroups.pm AccessorGroupsRO.pm AccessorGroupsSubclass.pm AccessorGroupsWO.pm/,
30 File::Spec::Unix->catfile ($tfn),
33 local $SIG{__WARN__} = sub { warn @_ unless $_[0] =~ /subroutine .+ redefined/i };