File Coverage

blib/lib/DBIx/NoSQL/Model/Field.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	4	75.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	0	2	0.0
total	34	38	89.4

package DBIx::NoSQL::Model::Field;
our $AUTHORITY = 'cpan:YANICK';
$DBIx::NoSQL::Model::Field::VERSION = '0.0021';
use strict;
use warnings;

use Moose;

has name => qw/ is ro required 1 /;

has index => qw/ is rw /;
has type => qw/ is rw /;

sub setup {
    my $self = shift;
    my $model = shift;

    my %given = @_;

    exists $given{ $_ } && $self->$_( $given{ $_ } ) for qw/ index /;
    if ( my $type_name = $given{ isa } ) {
        $self->type( $type_name );
        if ( my $type = $model->store->type_map->type( $type_name ) ) {
            $model->_field2inflate_map->{ $self->name } = $type->inflator;
            $model->_field2deflate_map->{ $self->name } = $type->deflator;
        }
    }

    return $self;
}

sub install_index {
    my $self = shift;
    my $model = shift;
    my $result_class = shift;

    my $column = $self->name;

    $model->_field2column_map->{ $self->name } = $column;

    $result_class->add_column( $column => {
        data_type => 'text',
        is_nullable => 1,
    } );
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

DBIx::NoSQL::Model::Field

=head1 VERSION

version 0.0021

=head1 AUTHORS

=over 4

=item *

Robert Krimen <[e-mail]>

=item *

Yanick Champoux <[e-mail]>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Robert Krimen.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut