package Table::Denormalized::Column;
use strict;

=head1 NAME

Table::Denormalized::Column - Encapsulate information for a SQL column

=head1 SYNOPSIS

=head1 ABSTRACT

This module trivially encapsulates the information about a column
in an SQL database as the pair of name and type.

=cut

use base 'Class::Accessor';

__PACKAGE__->mk_accessors(qw(name type));

=head2 C<< $column->as_sql >>

Returns an SQL fragment suitable to be used in an
C<ALTER TABLE ADD COLUMN %s> statement.

=cut

sub as_sql {
  my $self = shift;
  return sprintf "%s %s", $self->name, $self->type
};

1;

=head1 AUTHOR

Max Maischein, E<lt>corion@cpan.orgE<gt>

=head1 SEE ALSO

L<DBI>, L<Class::DBI>