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