#!/usr/bin/env perl

use 5.032001;
use warnings;
use PPR::X;

my $code=<<'_code_';
    package Fee;
    sub one {
        say __PACKAGE__.q{::one};
        };
    package Fi;
    sub two {
        say __PACKAGE__.q{::two};
        };
    { package Foo;
        sub three {
            say __PACKAGE__.q{::three};
            };
        }; # End of package Foo!
    sub four {
        say __PACKAGE__.q{:four};
        };
_code_

my $re = qr{
    # What to match...
    (?:
        (?<block> (?&PerlBlock) )
        |
        (?<package> (?&PerlPackageDeclaration) )
        |
        (?<subroutine> (?&PerlSubroutineDeclaration) )
    )
    $PPR::X::GRAMMAR
}x;

use Data::Dumper;
while ($code =~ m{$re}gx) {
    warn Data::Dumper->new([\%+],[qw(*+)])->Deepcopy(1)->Indent(1)->Maxdepth(3)->Sortkeys(1)->Dump(),q{ };
    };
__DATA__

##</code><code>##

%+ = (
  'package' => 'package Fee;'
);
  at Fi_01.t line 44.
%+ = (
  'subroutine' => 'sub one {
        say __PACKAGE__.q{::one};
        }'
);
  at Fi_01.t line 44.
%+ = (
  'package' => 'package Fi;'
);
  at Fi_01.t line 44.
%+ = (
  'subroutine' => 'sub two {
        say __PACKAGE__.q{::two};
        }'
);
  at Fi_01.t line 44.
%+ = (                         # A BLOCK complete with its package/subroutine declarations
  'block' => '{ package Foo;
        sub three {
            say __PACKAGE__.q{::three};
            };
        }'
);
  at Fi_01.t line 44.
%+ = (
  'subroutine' => 'sub four {
        say __PACKAGE__.q{:four};
        }'
);
  at Fi_01.t line 44.