File Coverage

blib/lib/Attribute/Contract/Utils.pm

Criterion	Covered	Total	%
statement	32	35	91.4
branch	6	12	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	46	56	82.1

package Attribute::Contract::Utils;

use strict;
use warnings;

use base 'Exporter';

our @EXPORT = qw(build_check);

sub build_check {
    my ($package, $name, $code_ref, $import, $attributes) = @_;

    $attributes = '' unless defined $attributes;

    my $prefix = '';
    $prefix .= 'use Type::Params compile => {confess => 1};';
    foreach my $key (keys %$import) {
        if ($key eq '-types') {
            my @types =
              ref $import->{$key} ? @{$import->{$key}} : ($import->{$key});
            $prefix .= "use Types::Standard qw(@types);";
        }
        elsif ($key eq '-library') {
            my $lib = $import->{$key};
            foreach my $library (ref $lib ? @$lib : $lib) {
                $prefix .= "use $library -types;";
            }
        }
    }

    my $ref = eval "$prefix; Type::Params::compile($attributes)"
      or die "Can't compile types: $@";
    return $ref;
}

1;