File Coverage

blib/lib/DTL/Fast/Expression/Operator/Binary/Ge.pm

Criterion	Covered	Total	%
statement	25	31	80.6
branch	6	10	60.0
condition	6	20	30.0
subroutine	7	7	100.0
pod	0	1	0.0
total	44	69	63.7

package DTL::Fast::Expression::Operator::Binary::Ge;
use strict;
use utf8;
use warnings FATAL => 'all';
use parent 'DTL::Fast::Expression::Operator::Binary';

$DTL::Fast::OPS_HANDLERS{'>='} = __PACKAGE__;

use Scalar::Util qw(looks_like_number);
use locale;

sub dispatch
{
    my ( $self, $arg1, $arg2, $context) = @_;
    my ($arg1_type, $arg2_type) = (ref $arg1, ref $arg2);
    my $result = 0;

    if (looks_like_number($arg1) and looks_like_number($arg2))
    {
        $result = ($arg1 >= $arg2);
    }
    elsif ($arg1_type eq 'ARRAY' and $arg2_type eq 'ARRAY') # @todo check that $arg1 includes $arg2
    {
        $result = ( scalar @$arg1 >= scalar @$arg2 );
    }
    elsif ($arg1_type eq 'HASH' and $arg2_type eq 'HASH') # @todo check that $arg1 includes $arg2
    {
        my @keys1 = sort keys %$arg1;
        my @keys2 = sort keys %$arg2;

        $result = ( scalar @$arg1 >= scalar @$arg2 );
    }
    elsif (UNIVERSAL::can($arg1, 'compare'))
    {
        $result = ( $arg1->compare($arg2) > - 1 );
    }
    elsif (
        defined $arg1
            and defined $arg2
    )
    {
        $result = ($arg1 ge $arg2);
    }
    else
    {
        die $self->get_render_error(
                $context,
                sprintf("don't know how to compare %s (%s) to %s (%s)"
                    , $arg1 // 'undef'
                    , $arg1_type || 'SCALAR'
                    , $arg2 // 'undef'
                    , $arg2_type || 'SCALAR'
                )
            );
    }

    return $result;
}

1;