File Coverage

blib/lib/MooX/Keyword/Field.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	7	10	70.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	37	40	92.5

package MooX::Keyword::Field;

use 5.006; use strict; use warnings; our $VERSION = '1.01';
use Moo;

our %FIELDS;

use MooX::Keyword {
	field => {
		builder => sub {
			my ($moo, $name, @args) = @_;
			$moo->around('BUILDARGS', sub {
				my ($orig, $self, @args) = @_;
				my %args = scalar @args > 1 ? @args : %{$args[0] || {}};
				for (keys %args) {
					delete $args{$_} if $FIELDS{$_};
				}
				$self->$orig(\%args);
			}) if ! keys %FIELDS;
			if (! $FIELDS{$name} ) {
				$moo->has($name, is => 'ro', @args);
				$FIELDS{$name} = 1;
			}
		}
	}
};

1;

__END__