subtype 'cf_class',
			 => as 'Str',
			 => where { m/a-zA-Z0-9/ },
			 => message { 'Not a valid cf class' };
	  has 'class' => {
			 is => 'rw',
			 isa => 'cf_class'
	  };