File Coverage

blib/lib/Attribute/Contract/Modifier/Ensures.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	23	25	92.0

package Attribute::Contract::Modifier::Ensures;

use strict;
use warnings;

require Carp;
use Attribute::Contract::Utils;

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

    Carp::croak('Return type(s) are required') unless $attributes;

    my $check = build_check(@_);

    sub {
        my @return = $code_ref->(@_);

        $check->(@return);

        @return;
    };
}

1;