cpan/Module-Pluggable/t/15topicsafe.t

   1 #!perl -w
   2
   3 use strict;
   4 use FindBin;
   5 use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
   6 use Test::More 'no_plan';
   7
   8 use Module::Pluggable search_path => 'Acme::MyTest';
   9
  10 my $topic = "topic";
  11
  12 for ($topic) {
  13   main->plugins;
  14 }
  15
  16 is($topic, 'topic', "we've got the right topic");