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;
};

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)->Dump;
        print "\t$value -> $dumped\n";
    };
    print "\n";
};

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');