File Coverage

lib/SQL/Admin/Catalog/Sequence.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch	11	14	78.5
condition			n/a
subroutine	9	10	90.0
pod	0	7	0.0
total	47	61	77.0

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

use strict;
use warnings;

our $VERSION = v0.5.0;

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


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


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


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


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


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


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


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

package SQL::Admin::Catalog::Sequence;

1;