package FieldRef;

use strict;
use XML;

use methods;

use members ( scalar => [ 'name', 'size' ] );

$FieldRef::xml_element = "field";

sub sql_create {
	my ($this) = @_;
	my $sql = qq{$Field::QUOTE$this->{name}$Field::QUOTE};
	$sql .= "($this->{size})" if $this->{size};
	return $sql;
}

sub sql_drop {
	my ($this) = @_;
	return qq{$Field::QUOTE$this->{name}$Field::QUOTE};
}

1
