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

package Class::InsideOut;
use NEXT;
use Attribute::Handlers;
use PadWalker qw(peek_my);
use Data::Dumper;
use vars qw($AUTOLOAD);

my (@Field, %Pad);

sub Field : ATTR(HASH) {
    my ($class, $symbol, $hash) = @_;
    push @Field, $hash;

	my $pad = peek_my(3);
	$Pad{$class}->{$pad} = peek_my(3);
}

sub AUTOLOAD {
	my $self = $_[0];
	my ($class, $field) = $AUTOLOAD =~ /^(.*)::(.*)$/;

	$field = "%".$field;
	my @field = grep exists $_->{$field}, values %{$Pad{$class}};

	if(@field) {
		$field = $field[0];
		no strict 'refs';
		*{$AUTOLOAD} = sub {
			my $self = shift;
			@_ ? $field->{$self} = shift : $field->{$self};
		};
		goto &{$AUTOLOAD};
	}
	else {
		warn "\@field is empty";
		return $self->NEXT::AUTOLOAD;
	}
}

sub DESTROY {
    my $self = $_[0];
    delete $_->{$self} for @Field;
    $self->NEXT::DESTROY()
}

1;