Here is demo for bug

#!/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__
[download]