File Coverage

blib/lib/Types/Equal.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	23	23	100.0

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

our $VERSION = "0.01";

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

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],
            )
        }
    }
);

1;
__END__