Commit | Line | Data |
3f7169a2 |
1 | #!perl -w |
2 | |
3 | use Test::More tests => 1; |
4 | use FindBin; |
5 | use lib "$FindBin::Bin/lib"; |
6 | |
7 | use Devel::InnerPackage qw(list_packages); |
8 | use No::Middle; |
9 | |
10 | my @p = list_packages("No::Middle"); |
11 | is_deeply([ sort @p ], [ qw(No::Middle::Package::A No::Middle::Package::B) ]); |