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 restore {
	my ($self,$data,$surrogate) = @_;
	
	my %args = @$data;
	
	die new IMPL::Exception('A target is required for the link') unless exists $args{target};
	
	return $self->new($args{target});
}