File Coverage

blib/lib/MooX/Role/Reconstruct.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	8	8	100.0
pod			n/a
total	46	50	92.0

package MooX::Role::Reconstruct;

use strict;
use warnings FATAL => 'all';

use 5.006;

our $VERSION = 'v0.1.1';

use Sub::Quote;
use Sub::Defer;
use Role::Tiny;

sub import {
    my $target = shift;
    my %args = @_ ? (@_) : ( method => 'reconstruct' );

    my $method = delete( $args{method} );

    die 'MooX::Role::Reconstruct can only be used on Moo classes.'
      unless $Moo::MAKERS{$target} && $Moo::MAKERS{$target}{is_class};

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

    defer_sub(
        "${target}::${method}" => sub {

            # don't alter the original specs if called before new
            my %spec;
            for ( keys( %{ $con->{attribute_specs} } ) ) {
                $spec{$_} = { %{ $con->{attribute_specs}{$_} } };
            }
            for ( grep exists( $spec{$_}{init_arg} ), keys(%spec) )
            {
                delete($spec{$_}{init_arg}) unless $spec{$_}{keep_init};
            }
            unquote_sub $con->generate_method(
                $target, $method, \%spec, { no_install => 1 }
            );
        }
    );

    return;
}

1;

__END__