File Coverage

blib/lib/Types/Equal.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	31	31	100.0

package Types::Equal;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.02";

use Type::Library -base, -declare => qw( Eq Equ NumEq NumEqu );
use Type::Tiny::Eq;
use Type::Tiny::Equ;
use Type::Tiny::NumEq;
use Type::Tiny::NumEqu;

my $meta = __PACKAGE__->meta;

$meta->add_type(
    {
        name => 'Eq',
        constraint_generator => sub {
            Type::Tiny::Eq->new(
                value => $_[0],
            )
        }
    }
);

$meta->add_type(
    {
        name => 'Equ',
        constraint_generator => sub {
            Type::Tiny::Equ->new(
                value => $_[0],
            )
        }
    }
);

$meta->add_type(
    {
        name => 'NumEq',
        constraint_generator => sub {
            Type::Tiny::NumEq->new(
                value => $_[0],
            )
        }
    }
);

$meta->add_type(
    {
        name => 'NumEqu',
        constraint_generator => sub {
            Type::Tiny::NumEqu->new(
                value => $_[0],
            )
        }
    }
);

1;
__END__