use_ok
"Devel::InheritNamespace"
;
my
$din
= Devel::InheritNamespace->new(
except
=>
qr/(?:Functions|VMS|Win32)$/
,
);
my
$modules
=
$din
->all_modules(
'MyApp'
=>
'File::Spec'
);
ok(
$modules
->{
'MyApp::Cygwin'
}->{is_virtual} );
ok(
$modules
->{
'MyApp::Epoc'
}->{is_virtual} );
ok(
$modules
->{
'MyApp::Mac'
}->{is_virtual} );
ok(
$modules
->{
'MyApp::OS2'
}->{is_virtual} );
ok(
$modules
->{
'MyApp::Unix'
}->{is_virtual} );