package Catmandu::Importer::Values;
use Catmandu::Sane;
use Moo;
use namespace::clean;
with 'Catmandu::Importer';
has values => (is => 'ro', default => sub { '' });
sub generator {
my ($self) = @_;
sub {
state $values = [ split /;/, $self->values ];
return @$values ? { value => shift(@$values) } : undef;
};
}
1;