File Coverage

blib/lib/MooX/Should.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	6	10	60.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	36	42	85.7

package MooX::Should;

# ABSTRACT: optional type restrictions for Moo attributes

use version 0.77 ();

use Moo       ();
use Moo::Role ();

our $USE_MOO_UTILS;

BEGIN {
    if( version->parse( Moo->VERSION ) >= version->parse('2.003006') ) {
        $USE_MOO_UTILS = 1;
        require Moo::_Utils;
    }
}

use Devel::StrictMode;

our $VERSION = 'v0.1.4';


sub import {
    my ($class) = @_;

    my $target = caller;

    my $has = $target->can('has') or return;

    my $installer =
      $USE_MOO_UTILS
      ? \&Moo::_Utils::_install_tracked
      : $target->isa("Moo::Object")
          ? \&Moo::_install_tracked
          : \&Moo::Role::_install_tracked;

    my $wrapper = sub {
        my ( $name, %args ) = @_;

        if (STRICT) {
            $args{isa} = delete $args{should} if exists $args{should}
        } else {
            delete $arg{should}
        }

        return $has->( $name => %args );
    };

    $installer->( $target, "has", $wrapper );


}


1;

__END__