in reply to Re: Accessing list of package names in a module
in thread Accessing list of package names in a module

Thanks, Module::Info looked ideal, but it doesn't correctly return all the package names from a module (it only returns the last for some reason).

I'll give the first sample a try now.
  • Comment on Re^2: Accessing list of package names in a module

Replies are listed 'Best First'.
Re^3: Accessing list of package names in a module
by Anonymous Monk on Nov 21, 2008 at 03:24 UTC
    You should report that bug.
[reply]
      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]
[reply]
[d/l]

In Section Seekers of Perl Wisdom