sub getWorkspace {
	my ($self, $WHERE, $TYPE) = @_;
	$TYPE = $self->getType($TYPE) if ($TYPE);

	sub cmpval {
		my ($val1, $val2) = @_;

		if (ref($val1) eq 'Node') { $val1 = $$val1{node_id}; };
		if (ref($val2) eq 'Node') { $val2 = $$val2{node_id}; }
	
		$val1 eq $val2;
	}
	
	foreach my $node (keys %{ $this->{workspace}{nodes} }) {
		my $N = $this->getNode($node);

		my $match = 1;
		foreach (keys %$WHERE) {
			$match = 0 unless cmpval($$N{$_}, $$WHERE{$_});
		}
		push @results, $N if $match;
	}
	return \@results;
}