view release on metacpan or  search on metacpan

lib/Aniki/Plugin/RangeConditionMaker.pm  view on Meta::CPAN

package Aniki::Plugin::RangeConditionMaker;
use 5.014002;

use namespace::autoclean;
use Mouse::Role;

use Carp qw/carp croak/;
use SQL::QueryMaker qw/sql_gt sql_lt sql_ge sql_le sql_and/;

sub make_range_condition {
    my ($self, $range) = @_;

    my %total_range_condition;
    for my $type (qw/lower upper gt lt ge le/) {
        next unless exists $range->{$type};

        ref $range->{$type} eq 'HASH'
            or croak "$type condition *MUST* be HashRef.";

        my $func;
        if ($type eq 'lower' || $type eq 'gt') {
            $func = \&sql_gt;
        }
        elsif ($type eq 'upper' || $type eq 'lt') {
            $func = \&sql_lt;
        }
        elsif ($type eq 'ge') {
            $func = \&sql_ge;
        }
        elsif ($type eq 'le') {
            $func = \&sql_le;
        }

        die "Unknown type: $type" unless $func;

        my $range_condition = $range->{$type};
        for my $column (keys %$range_condition) {
            croak "$column cannot be a reference value for range condition"
                if ref $range_condition->{$column};

            my $condition = $func->($range_condition->{$column});
            $total_range_condition{$column} =
                exists $total_range_condition{$column} ? sql_and([$total_range_condition{$column}, $condition])
                                                       : $condition;
        }
    }

    return %total_range_condition ? \%total_range_condition : undef;
}

1;
__END__

=pod

=encoding utf-8

=head1 NAME

Aniki::Plugin::RangeConditionMaker - range condition maker

=head1 SYNOPSIS

    package MyDB;