File Coverage

blib/lib/MooX/ClassOnlyConstructor.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	3	4	75.0
condition	2	3	66.6
subroutine	3	3	100.0
pod			n/a
total	23	26	88.4

package MooX::ClassOnlyConstructor;

# ABSTRACT: Make Moo-based object constructors class-only methods

use Moo::Role ();

use constant ROLE_BASE => 'Method::Generate::Constructor::Role::';
{
  $MooX::ClassOnlyContructor::VERSION = 'v0.1_1';
}

# The gist of this code was taken from MooX::StrictConstructor
sub import {
    my $class  = shift;

    my $target = caller;
    die "MooX::ClassOnlyConstructor can only be used on Moo classes."
      unless $Moo::MAKERS{$target} && $Moo::MAKERS{$target}{is_class};

    my $con = Moo->_constructor_maker_for($target);

    my $con_role = ROLE_BASE;
    if ( $con->can('_generate_constructor') ) {
        $con_role .= 'ClassOnlyConstructor';
    } else {
        $con_role .= 'RetroClassOnlyConstructor';
    }
    Moo::Role->apply_roles_to_object($con, $con_role);

    return;
}

1;

__END__