File Coverage

blib/lib/MooX/StrictConstructor.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	6	8	75.0
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	47	51	92.1

use strict;
use warnings;
package MooX::StrictConstructor;

our $VERSION = '0.013';

use Moo ();
use Moo::Role ();
use Moo::_Utils qw(_install_modifier);
use Carp ();

sub import {
    my $class  = shift;
    my $target = caller;
    my $late;
    for my $arg (@_) {
        if ($arg eq '-late') {
            $late = 1;
        }
        else {
            Carp::croak("Unknown option $arg");
        }
    }
    unless ( Moo->is_class($target) ) {
        Carp::croak("MooX::StrictConstructor can only be used on Moo classes.");
    }

    _apply_role($target, $late);

    _install_modifier($target, 'after', 'extends', sub {
        _apply_role($target, $late);
    });
}

sub _apply_role {
    my ($target, $late) = @_;
    my $con = Moo->_constructor_maker_for($target); ## no critic (Subroutines::ProtectPrivateSubs)
    my $role = $late ? 'MooX::StrictConstructor::Role::Constructor::Late'
                     : 'MooX::StrictConstructor::Role::Constructor';
    Moo::Role->apply_roles_to_object($con, $role)
        unless Moo::Role::does_role($con, $role);
}

1;

__END__