use strict; use warnings; use Test::More (); Test::More::plan('no_plan'); use Module::Pluggable::Object; my $finder = Module::Pluggable::Object->new( search_path => [ 'Reaction' ], except => qr/Role/, ); foreach my $class (grep !/\.ToDo/, sort do { local @INC = ('lib'); $finder->plugins }) { Test::More::use_ok($class); }