File Coverage

blib/lib/FormValidator/Simple/Plugin/CDBI/Unique.pm

Criterion	Covered	Total	%
statement	21	53	39.6
branch	0	18	0.0
condition	0	2	0.0
subroutine	7	8	87.5
pod	0	1	0.0
total	28	82	34.1

package FormValidator::Simple::Plugin::CDBI::Unique;
use strict;
use warnings;
use UNIVERSAL;
use UNIVERSAL::require;
use SQL::Abstract;
use FormValidator::Simple::Exception;
use FormValidator::Simple::Constants;

our $VERSION = '0.03';

sub CDBI_UNIQUE {

    my ($class, $params, $args) = @_;

    unless ( scalar(@$args) >= 2 ) {
        FormValidator::Simple::Exception->throw(
        qq/Validation CDBI_UNIQUE needs two arguments at least. /
        .qq/Set name of CDBI table class and unique column(s). /
        );
    }

    my $table = shift @$args;
    unless ( scalar(@$params) == scalar(@$args) ) {
        FormValidator::Simple::Exception->throw(
        qq/Validation CDBI_UNIQUE: number of keys and validation arguments aren't same./
        );
    }
    if ( $class->options->{cdbi_base_class} ) {
        $table = $class->options->{cdbi_base_class}."::".$table;
    }
    $table->require;
    if ($@) {
        FormValidator::Simple::Exception->throw(
        qq/Validation CDBI_UNIQUE: faild to require $table. "$@"/
        );
    }
    unless ( UNIVERSAL::isa( $table => 'Class::DBI' ) ) {
        FormValidator::Simple::Exception->throw(
        qq/Validation CDBI_UNIQUE: set CDBI table class as first argument./
        );
    }
    my %criteria = ();
    for ( my $i = 0; $i < scalar(@$args); $i++ ) {
        my $key   = $args->[$i];
        my $value = $params->[$i];
        if ( $key =~ /^!(.+)$/ ) {
            $criteria{$1} = { '!=' => $value };
        }
        else {
            $criteria{$key} = $value || '';
        }
    }
    foreach my $column ( keys %criteria ) {
        $table->find_column($column)
        or FormValidator::Simple::Exception->throw(
        qq/Validation CDBI_UNIQUE: $column is not a column of $table./
        );
    }
    my($stmt, @bind) =
        SQL::Abstract->new->select($table->table, "COUNT(*)", \%criteria);

    my $count;
    eval{
        my $sth = $table->db_Main->prepare($stmt);
        $sth->execute(@bind);
        $sth->bind_columns(\$count);
        $sth->fetch;
    };
    if($@){
        FormValidator::Simple::Exception->throw(
        qq/Validation CDBI_UNIQUE: "$@"./
        );
    }
    return $count > 0 ? FALSE : TRUE;
}

1;
__END__