# Added Type handler
	sub _check_type {
		my ($self,$attribute,$type) = @_;
		$_attribute_properties{$attribute}[1] =~ /$type/;
	}