use warnings;
use strict;

use Data::Dumper;
use PPI;

my $file = 'file.pl';

my $PPI_doc = PPI::Document->new($file);
my $PPI_statements = $PPI_doc->find('PPI::Statement');

my %layout;
my $package;

for my $statement (@$PPI_statements) {
    if (ref $statement eq 'PPI::Statement::Package') {
        $package = $statement->namespace;
    }
    if (ref $statement eq 'PPI::Statement::Sub') {
        push @{ $layout{$package} }, $statement->name;
    }
}

print Dumper \%layout;