package Storm::SQL::Column;
{
$Storm::SQL::Column::VERSION = '0.18';
}
use Moose;
use MooseX::SemiAffordanceAccessor;
use MooseX::StrictConstructor;
has 'name' => (
is => 'ro',
isa => 'Str',
required => 1,
);
sub sql {
return $_[0]->name;
}
sub BUILDARGS {
my $class = shift;
if ( @_ == 1 && ! ref $_[0] ) {
return { name => $_[0] };
}
else {
return $class->SUPER::BUILDARGS(@_);
}
}
no Moose;
__PACKAGE__->meta->make_immutable;
1;