File Coverage

blib/lib/SQL/OOP/ID.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch	5	6	83.3
condition	3	3	100.0
subroutine	11	11	100.0
pod	4	4	100.0
total	68	69	98.5

### ---
### Class for dot-chained Identifier ex) "public"."table"."colmun1"
### ---
package SQL::OOP::ID;
use strict;
use warnings;
use base qw(SQL::OOP::Array);

### ---
### Constructor
### ---
sub new {
    my ($class, @array) = @_;
    return $class->SUPER::new(@array)->set_sepa('.');
}

### ---
### Append ID
### ---
sub append {
    my ($self, @array) = @_;
    $self->_init_gen;
    if (ref $array[0] && ref $array[0] eq 'ARRAY') {
        @array = @{$array[0]};
    }
    for my $elem (@array) {
        if ($elem) {
            push(@{$self->{array}}, SQL::OOP::ID::Parts->new($elem));
        }
    }
    return $self;
}

### ---
### "field AS foo" syntax
### ---
sub as {
    my ($self, $as) = (@_);
    $self->{as} = $as;
    return $self;
}

### ---
### Generate SQL snippet
### ---
sub generate {
    my $self = shift;
    my @array = map {$_->to_string} @{$self->{array}};
    $self->{gen} = join($self->{sepa}, grep {$_} @array);

    if ($self->{as}) {
        $self->{gen} .= ' AS '. $self->quote($self->{as});
    }

    return $self;
}

### ---
### Class for Identifier such as table, field schema
### ---
package SQL::OOP::ID::Parts;
use strict;
use warnings;
use base qw(SQL::OOP::Base);

### ---
### Generate SQL snippet
### ---
sub generate {
    my $self = shift;
    $self->SUPER::generate(@_);
    $self->{gen} = $self->quote($self->{gen});
}

1;

__END__