File Coverage

lib/CGI/ValidOp/Check/length.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	20	22	90.9
condition	24	30	80.0
subroutine	6	6	100.0
pod	0	1	0.0
total	78	88	88.6

package CGI::ValidOp::Check::length;
use strict;
use warnings;

use base qw/ CGI::ValidOp::Check /;
use Carp;

sub default {
    my $self = shift;
    sub {
        # this code is brutally verbose, but all the tests pass
        my( $value, $min, $max ) = @_;

        $self->allow_tainted( 1 );
        return $self->pass unless defined $value;

        # length
        # length(0)
        # length(0,0)
        return $self->pass( $value ) unless $min or $max;

        # length(3)
        # length(3,3)
        if(( $min and ! defined $max ) or $min and $min == $max ) {
            return $self->pass( $value ) if $value =~ /^.{$min}$/;
            return $self->fail( "\$label length must be exactly $min characters long." );
        }
        # length(3,0)
        elsif( $min and defined $max and $max == 0 ) {
            return $self->pass( $value ) if $value =~ /^.{$min,}$/;
            return $self->fail( "\$label length must be at least $min characters long." );
        }
        # length(6,3)
        elsif( $min and defined $max and $min > $max ) {
            croak "Length 'min' must be less than 'max.'"
        }
        # length(0,3)
        elsif( $min == 0 and $max ) {
            return $self->pass( $value ) if $value =~ /^.{$min,$max}$/;
            return $self->fail( "\$label length must be at most $max characters long." );
        }
        # length(3,6)
        elsif( $min and $max ) {
            return $self->pass( $value ) if $value =~ /^.{$min,$max}$/;
            return $self->fail( "\$label length must be between $min and $max characters long." );
        }
        croak 'Something has gone horribly wrong with length check.';
    }
}

1;


__END__