### our magic accessor generator
sub AUTOLOAD {
	my $self = shift;
	my $auto = (split(/\:\:/,$AUTOLOAD))[-1];
	$auto = $AUTOLOAD unless $auto;
	return if $auto eq 'DESTROY'; ### ignore
	die "No such method: $auto\n" unless (exists $self->{$auto});
	if ( @_ ){
		my @args = @_;
		if( scalar(@args) > 1){
			$self->{$auto} = \@args;
		}else{
			$self->{$auto} = $args[0];
		}
	}else{
		return $self->{$auto};
	}
}