File Coverage

blib/lib/MooX/StrictConstructor/Role/Constructor/Late.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	16	17	94.1

use strict;                     # redundant, but quiets perlcritic
use warnings;
package MooX::StrictConstructor::Role::Constructor::Late;

our $VERSION = '0.013';

use Moo::Role;

with 'MooX::StrictConstructor::Role::Constructor::Base';

has _buildall_generator => ( is => 'rw' );

around buildall_generator => sub {
    my ($orig, $self, @args) = @_;
    my $gen = $self->_buildall_generator;
    return $gen
        if $gen;
    $gen = Moo::Role->apply_roles_to_object($self->$orig(@args),
        'MooX::StrictConstructor::Role::BuildAll'
    );
    $gen->_constructor_generator($self);
    return $self->_buildall_generator($gen);
};

sub _fake_BUILD {}

around generate_method => sub {
    my ($orig, $self, $into, @args) = @_;
    no strict 'refs';
    # this ensures BuildAll generation will always be done, but allows us to
    # identify when the BUILD calls aren't needed.
    local *{"${into}::BUILD"} = \&_fake_BUILD
        if !$into->can('BUILD');
    $self->$orig($into, @args);
};

1;

__END__