[p5sagit/p5-mst-13.2.git] / cpan / Module-Pluggable / t / 12onlyrequire.t

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

my @packages = eval { Zot->_dist_types };
is($@, '',                "No warnings");
is(scalar(@packages), 0,  "Correctly only got 1 package");


package Zot;
use strict;
use Module::Pluggable (
        sub_name => '_dist_types',
        search_path => __PACKAGE__,
        only => qr/Zot::\w+$/,
        require => 1,
    );

1;
Commit	Line	Data
a0df7637	1	#!perl -w
	2	use strict;
	3	use FindBin;
	4	use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
	5	use Test::More tests => 2;
	6
	7	my @packages = eval { Zot->_dist_types };
	8	is($@, '', "No warnings");
	9	is(scalar(@packages), 0, "Correctly only got 1 package");
	10
	11
	12	package Zot;
	13	use strict;
	14	use Module::Pluggable (
	15	sub_name => '_dist_types',
	16	search_path => __PACKAGE__,
	17	only => qr/Zot::\w+$/,
	18	require => 1,
	19	);
	20
	21	1;