#!/usr/bin/perl --
package New;
$New::VERSION=0;
1;
package New::Shhine;
$New::Shhine::VERSION=0;
1;
package New'Guy'S;
$New::Guy::S=0;
1;
package New::Grandpa;
$New::Grandpa::VERSION=0;
1;
package THESE::DON'T::SHOW::UP;
package New::Because::There::Is::No::True::Return::Value;
package Its::A::Bug;
package main;
unless( caller ){ # important for package_versions, otherwise fork bom
+b
use Module::Info;
my $mi = Module::Info->new_from_file( __FILE__ );
my @pi = $mi->packages_inside;
print $_, $/ for @pi;
print "\n----\n";
my %pv = $mi->package_versions;
print $_, $/ for %pi;
}
__END__
|