File Coverage

lib/SQL/Admin/Catalog/Table/Constraint.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	24	28	85.7

package SQL::Admin::Catalog::Table::Constraint;
use base qw( SQL::Admin::Catalog::Table::Object );

use strict;
use warnings;

our $VERSION = v0.5.0;

######################################################################
######################################################################
sub column_list {                        # ;
    my $self = shift;
    $self->{column_list} = shift if @_;
    $self->{column_list};
}


######################################################################
######################################################################
sub fullname {                           # ;
    my $self = shift;

    join '.', (
        $self->table->fullname,
        $self->_constraint_type,
        (map join ('-', ref $_ ? @$_ : $_), @{ $self->column_list || [] }),
    );
}


######################################################################
######################################################################

package SQL::Admin::Catalog::Table::Constraint;

1;