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; |