package TestBed6;

$DB::single = 1;

use Attribute::Handlers::Prospective 'Perl6';

use Data::Dumper 'Dumper';

sub UNIVERSAL::Attr is ATTR(CODE) {
	print 'Attr: ', Dumper \@_;
}

sub UNIVERSAL::VarAttr is ATTR(CHECK,RUN,VAR) {
	tie ${$_[2]}, Loud;
}

sub UNIVERSAL::Another_Attr is ATTR(ANY) {
	print 'Another_Attr: ', Dumper \@_;
}


package Loud;

sub TIESCALAR { bless {} }

sub STORE { print "<<<STORING $_[1]>>>\n" ; $_[0]{val} = $_[1] }
sub FETCH { print "<<<FETCHING>>>\n"; $_[0]{val} }

1;