Something

sub type
{
	my $self = shift;
	if (@_) { 
		my $type = shift;
		if ( "$type" eq "standard" || "$type" eq "" ) 
		{
			$self->{type} = "0" ;
		}
		elsif ( "$type" eq "extended" ) 
		{
			$self->{type} = "1";
		}
		else
		{
			$self->{type} = "NULL";
		}
	};
	return $self->{type};
}