File Coverage

lib/SQL/Admin/Catalog/Index.pm

Criterion	Covered	Total	%
statement	18	24	75.0
branch	6	10	60.0
condition			n/a
subroutine	6	8	75.0
pod	0	5	0.0
total	30	47	63.8

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

use strict;
use warnings;

our $VERSION = v0.5.0;

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


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


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


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


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


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

package SQL::Admin::Catalog::Index;

1;