#! /usr/bin/perl
use strict;
use warnings;

package AttrTest;
use Data::Dumper;
use PadWalker qw(peek_my);

sub MODIFY_HASH_ATTRIBUTES {
   my ($package, $reference, @attributes) = @_;
   $package->dump_lex("setting @attributes in $package for $reference"
+);
   return;
};

INIT { AttrTest->dump_lex('init') };

{
   package Foo;
   use base qw(AttrTest);      
   my %foo : Attr = (one => 1);
};

{
   package Bar;
   use base qw(AttrTest);
   use attributes ();
   my %bar;
   attributes::->import(__PACKAGE__, \%bar, 'Attr');
}

AttrTest->dump_lex('runtime');

sub dump_lex {
   my ($class, $when) = @_;
   print "when $when top-level pad is\n";
   my $level=0;
   while (eval {peek_my(++$level)} && !$@) {};
   my $hash = peek_my($level-1);
   while (my ($name, $value) = each %$hash) {
       my $dumped = Data::Dumper->new([\$value],[$name])->Indent(0)->D
+ump;
       print "\t$value -> $dumped\n";
   };
   print "\n";
};
[download]