File Coverage

blib/lib/MooseX/ExtraArgs/Meta/Object.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package MooseX::ExtraArgs::Meta::Object;

$MooseX::ExtraArgs::Meta::Object::VERSION = '0.02';

use Moose::Role;

has extra_args => (
    is       => 'ro',
    isa      => 'HashRef',
    required => 1,
    init_arg => '_extra_args',
);

around BUILDARGS => sub{
    my $orig = shift;
    my $self = shift;

    my $args = $self->$orig( @_ );
    $args->{_extra_args} = { %$args };

    my $meta = $self->meta();
    foreach my $attr ($meta->get_all_attributes()) {
        next if !$attr->has_init_arg();
        delete( $args->{_extra_args}->{ $attr->init_arg() } );
    }

    return $args;
};

1;