File Coverage

lib/Mojolicious/Plugin/Vparam/Bool.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	26	26	100.0
condition	3	3	100.0
subroutine	12	12	100.0
pod	0	5	0.0
total	74	79	93.6

package Mojolicious::Plugin::Vparam::Bool;
use Mojo::Base -strict;
use Mojolicious::Plugin::Vparam::Common;

sub check_bool($) {
    return 'Wrong format'               unless defined $_[0];
    return 0;
}

sub parse_bool($) {
    my ($str) = @_;
    # HTML forms do not transmit if checkbox off
    return 0 unless defined $str;
    return 0 unless length  $str;
    return 0 if $str =~ m{^(?:0|no|false|fail)$}i;
    return 1 if $str =~ m{^(?:1|yes|true|ok)$}i;
    return undef;
}

sub check_logic($) {
    return 'Value is not defined'       unless defined $_[0];
    return 'Wrong format'               unless $_[0] =~ m{^(?:0|1|)$};
    return 0;
}

sub parse_logic($) {
    my ($str) = @_;
    return undef unless defined $str;
    return ''   if $str =~ m{^\s*$};
    return ''   if $str =~ m{^(?:nil|null|undef|undefined|nan)$}i;
    return 0    if $str =~ m{^(?:0|no|false|fail)$}i;
    return 1    if $str =~ m{^(?:1|yes|true|ok)$}i;
    return $str;
}

sub register {
    my ($class, $self, $app, $conf) = @_;

    $app->vtype(
        bool        =>
            pre     => sub { parse_bool trim    $_[1] },
            valid   => sub { check_bool         $_[1] },
    );

    $app->vtype(
        logic       =>
            pre     => sub { parse_logic trim   $_[1] },
            valid   => sub { check_logic        $_[1] },
            post    => sub {
                defined($_[1]) && $_[1] eq ''
                    ? undef
                    : $_[1]
                ;
            },
    );

    return;
}

1;