File Coverage

blib/lib/JsonSQL/Param/Conditions/LogicCondition.pm

Criterion	Covered	Total	%
statement	35	39	89.7
branch	3	6	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	48	55	87.2

# ABSTRACT: JsonSQL::Param::Conditions::LogicCondition object. Subclass for parsing logic conditions (ex: 'and', 'or', etc).



use strict;
use warnings;
use 5.014;

package JsonSQL::Param::Conditions::LogicCondition;

our $VERSION = '0.4'; # VERSION

use base qw( JsonSQL::Param::Condition );

use SQL::QueryMaker qw( sql_and sql_or );
#use Data::Dumper;

use JsonSQL::Error;


## Define the SQL::QueryMaker methods used for building up SQL condition statements.
my %dispatch = (
    'and' => \&sql_and,
    'or' => \&sql_or,
);



sub new {
    my ( $class, $conditionhashref, $queryObj, $default_table_rules ) = @_;

    my $self = $class->SUPER::new($conditionhashref);
    my @condition_errors;

    for my $arghash (@{ $conditionhashref->{$self->{_op}} }) {
        my $argCondition = JsonSQL::Param::ConditionDispatcher->parse($arghash, $queryObj, $default_table_rules);
        if ( eval { $argCondition->is_error } ) {
            push(@condition_errors, "Error parsing logic condition argument: $argCondition->{message}");
        } else {
            push(@{ $self->{_args} }, $argCondition);
        }
    }

    if ( @condition_errors ) {
        my $err = "Error(s) constructing JsonSQL Condition object: \n\t";
        $err .= join("\n\t", @condition_errors);
        return JsonSQL::Error->new("jsonsql_logiccondition", $err);
    } else {
        return $self;
    }
}


sub get_sql_obj {
    my ( $self, $queryObj ) = @_;

    my @cond_args = map { $_->get_sql_obj($queryObj) } @{ $self->{_args} };

    if (exists $dispatch{$self->{_op}}) {
        return $dispatch{$self->{_op}}->(\@cond_args);
    }
}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

JsonSQL::Param::Conditions::LogicCondition - JsonSQL::Param::Conditions::LogicCondition object. Subclass for parsing logic conditions (ex: 'and', 'or', etc).

=head1 VERSION

version 0.4

=head1 SYNOPSIS

This module constructs a Perl object representing the VALUES parameter of an SQL INSERT statement and has methods for
generating the appropriate SQL string and bind values for use with the L<DBI> module.

=head1 DESCRIPTION

=head3 Object properties:

=over

=item _args => Array of L<JsonSQL::Param::Condition> objects to use as parameters.

=back

=head3 Generated parameters:

=over

=item $logicparameter => L<SQL::QueryMaker> object.

=back

=head1 METHODS

=head2 Constructor new($conditionhashref, $queryObj, $default_table_rules)

Instantiates and returns a new JsonSQL::Param::Conditions::LogicCondition object.

    $conditionhashref           => A hashref of the condition statement keyed by the operator.
    $queryObj                   => A reference to the JsonSQL::Query object that will own this object.
    $default_table_rules        => The default whitelist table rules to use to validate access when the table params
                                   are not provided to the field object. Usually, these are acquired from the table params
                                   of another object (ex: the FROM clause of a SELECT statement).

Returns a JsonSQL::Error object on failure.

=head2 ObjectMethod get_sql_obj -> $logicparameter

Generates parameters represented by the object for the SQL statement. Returns:

    $logicparameter           => The logic condition to append to the WHERE clause. Constructed by calling the
                                 L<SQL::QueryMaker> function defined by the dispatcher with the \@cond_args parameter.

=head1 AUTHOR

Chris Hoefler <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Chris Hoefler.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut