File Coverage

blib/lib/DBIx/QuickORM/Schema/Table/Column.pm

Criterion	Covered	Total	%
statement	37	40	92.5
branch	10	20	50.0
condition	0	3	0.0
subroutine	11	11	100.0
pod	0	5	0.0
total	58	79	73.4

package DBIx::QuickORM::Schema::Table::Column;
use strict;
use warnings;

our $VERSION = '0.000019';

use Carp qw/croak confess/;
use Scalar::Util qw/blessed/;

use DBIx::QuickORM::Affinity qw{
    validate_affinity
    affinity_from_type
};

use DBIx::QuickORM::Util::HashBase qw{
    +name
    <sql_default
    <perl_default
    <omit
    <order
    <nullable
    <identity
    +affinity
    <type
    <created
    <compiled
};

sub name { $_[0]->{+NAME} }

sub init {
    my $self = shift;

    my $debug = $self->{+CREATED} ? " (defined in $self->{+CREATED})" : "";

    croak "A 'name' is a required${debug}"           unless $self->{+NAME};
    croak "Column must have an order number${debug}" unless $self->{+ORDER};
}

sub affinity {
    my $self = shift;
    my ($dialect) = @_;

    return $self->{+AFFINITY} if $self->{+AFFINITY};

    my $debug = $self->{+CREATED} ? " (defined in $self->{+CREATED})" : "";
    my $type = $self->{+TYPE} or croak "No affinity specified, and no type provided${debug}";

    if (ref($type) eq 'SCALAR') {
        $self->{+AFFINITY} //= affinity_from_type($$type);

        croak "'affinity' was not provided, and could not be derived from type '$$type'${debug}"
            unless $self->{+AFFINITY};

        croak "'$self->{+AFFINITY}' is not a valid affinity${debug}"
            unless validate_affinity($self->{+AFFINITY});
    }

    croak "'$type' is not a valid type${debug}" unless $type->DOES('DBIx::QuickORM::Role::Type');

    return $self->{+AFFINITY} = $type->qorm_affinity(column => $self, dialect => $dialect);
}

sub merge {
    my $self = shift;
    my ($other, %params) = @_;

    return ref($self)->new(%$self, %$other, %params);
}

sub clone {
    my $self   = shift;
    my %params = @_;

    return ref($self)->new(%$self, %params);
}

1;