vcs.maemo.org Git - pkg-perl/blob - deb-src/libmodule-pluggable-perl/libmodule-pluggable-perl-3.8/t/09require.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 my $t = MyTest->new();
   9
  10
  11 ok($t->plugins());
  12
  13 ok(keys %{MyTest::Plugin::Foo::});
  14
  15
  16 package MyTest;
  17 use File::Spec::Functions qw(catdir);
  18 use strict;
  19 use Module::Pluggable (require => 1);
  20 use base qw(Module::Pluggable);
  21
  22
  23 sub new {
  24     my $class = shift;
  25     return bless {}, $class;
  26
  27 }
  28 1;
  29