File Coverage

blib/lib/Type/Tiny/Signatures.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	3	4	75.0
condition	2	5	40.0
subroutine	4	4	100.0
pod			n/a
total	25	29	86.2

# ABSTRACT: Method/Function Signatures w/Type::Tiny Constraints
package Type::Tiny::Signatures;

use 5.14.0;
use strict;
use warnings;

require Function::Parameters;
require Type::Registry;
require Type::Tiny;

our $CALLER   = caller;
our @DEFAULTS = 'Types::Standard';

our $VERSION = '0.05'; # VERSION

unshift @Function::Parameters::type_reifiers => sub {
    Type::Registry->for_class($CALLER)->lookup($_[0]);
};

sub import {
    my (@ARGUMENTS, @LIBRARIES);

    for (map 'ARRAY' eq ref $_ ? @$_ : $_, splice @_, 1) {
        push @LIBRARIES => $_ and next if !ref && !/^:/;
        push @ARGUMENTS => $_;
    }

    Type::Registry->for_class($CALLER)->add_types($_) for @DEFAULTS, @LIBRARIES;
    Function::Parameters->import(@ARGUMENTS);

    return;
}

1;

__END__