The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package SQL::Entity::Column::LOB;

use strict;
use warnings;
use vars qw(@EXPORT_OK %EXPORT_TAGS $VERSION);

$VERSION = '0.02';

use Abstract::Meta::Class ':all';
use base qw(Exporter SQL::Entity::Column);

@EXPORT_OK = qw(sql_lob);
%EXPORT_TAGS = (all => \@EXPORT_OK);

=head1 NAME

SQL::Entity::Column::LOB - Entity LOBs column abstraction.

=head1 CLASS HIERARCHY

 SQL::Entity::Column
    |
    +----SQL::Entity::Column::LOB

=head1 SYNOPSIS

    use SQL::Entity::Column::LOB ':all';

    my $column = SQL::Entity::Column::Lob->new(name  => 'name', size_column => 'doc_size');
    or 
    my $column = sql_lob(name  => 'name', size_column => 'doc_size');

=head1 DESCRIPTION

Represents entities lob column, that maps to the table lob column and column that stores lob size.

=head2 EXPORT

None by default.

sql_column  by tag 'all'

=head2 ATTRIBUTES

=over

=item size_column

Column that stores information about lob size

=cut

has '$.size_column';

=back

=head2 METHODS

=over

=item sql_lob

=cut

sub sql_lob {
    __PACKAGE__->new(@_);
}


1;

__END__

=back

=head1 COPYRIGHT

The SQL::Entity::Column::LOB module is free software. You may distribute under the terms of
either the GNU General Public License or the Artistic License, as specified in
the Perl README file.

=head1 SEE ALSO

L<SQL::Entity>
L<SQL::Entity::Table>
L<SQL::Entity::Condition>

=head1 AUTHOR

Adrian Witas, adrian@webapp.strefa.pl

=cut