cpan/Module-Pluggable/t/08nothing.t

   1 #!perl -w
   2
   3 use strict;
   4 use FindBin;
   5 use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
   6 use Test::More tests => 2;
   7
   8
   9 my $foo;
  10 ok($foo = MyTest->new());
  11
  12 my @expected = ();
  13 my @plugins = sort $foo->plugins;
  14 is_deeply(\@plugins, \@expected);
  15
  16
  17 package MyTest;
  18 use File::Spec::Functions qw(catdir);
  19 use strict;
  20 use Module::Pluggable (search_path => ["No::Such::Modules"]);
  21 use base qw(Module::Pluggable);
  22
  23
  24 sub new {
  25     my $class = shift;
  26     return bless {}, $class;
  27
  28 }
  29 1;
  30