File Coverage

lib/CGI/ValidOp/Check/checkbox.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	28	28	100.0

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

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

sub default {
    (
        qr/^on$/i,
        q#Checkbox $label must be checked.#,
    )
}

sub boolean {
    my $self = shift;
    sub {
        my $value = shift;
        return $self->pass( 0 ) unless defined $value;
        return $self->pass( 1 ) if $value =~ /^on$/i;
        $self->fail( q/Only a checkbox is allowed for parameter $label./ );
    }
}

1;

__END__