package IMPL::Config::Link;

use strict;

require IMPL::Exception;

require Tie::Scalar;
our @ISA = qw(Tie::StdScalar);

sub FETCH {
	return ${$_[0]} = ${$_[0]}->instance() if UNIVERSAL::isa(${$_[0]},'IMPL::Config::Activator');
}

sub surrogate {
	die new IMPL::Exception("You can't create a forward declarations of the link");
}

sub restore {
	my ($self,$data,$surrogate) = @_;

	my %args = @$data;
	
	die new IMPL::Exception('A target is required for the link') unless exists $args{target};
	my $val;
	tie $val, $self, $args{target};
	return $val;
}