File Coverage

lib/Mojolicious/Plugin/Vparam/UUID.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	7	8	87.5
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	30	33	90.9

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

sub check_uuid($) {
    return 'Value is not defined'       unless defined $_[0];
    return 'Value is not set'           unless length  $_[0];
    return 'Wrong format'
        unless $_[0] =~ m{^[0-9a-f]{8}-?[0-9a-f]{4}-?[0-9a-f]{4}-?[0-9a-f]{4}-?[0-9a-f]{12}$}i;
    return 0;
}

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

    $app->vtype(
        uuid        =>
            pre     => sub{ trim            $_[1] },
            valid   => sub{ check_uuid      $_[1] },
            post    => sub{ defined         $_[1] ? lc $_[1] : undef },
    );

    return;
}

1;