[p5sagit/p5-mst-13.2.git] / cpan / Module-Pluggable / t / 09require.t

#!perl -w

use strict;
use FindBin;
use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
use Test::More tests => 2;

my $t = MyTest->new();


ok($t->plugins());

ok(keys %{MyTest::Plugin::Foo::});


package MyTest;
use File::Spec::Functions qw(catdir);
use strict;
use Module::Pluggable (require => 1);
use base qw(Module::Pluggable);


sub new {
    my $class = shift;
    return bless {}, $class;

}
1;
Commit	Line	Data
3f7169a2	1	#!perl -w
	2
	3	use strict;
	4	use FindBin;
183ac38d	5	use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
3f7169a2	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