package Iotta::Feeder::Files;
use strict;
require Iotta::Elem;
our @ISA = ("Iotta::Elem");

sub run {
	my $self = shift;
	my $meta = shift;
	for (split (/,[ \t]*/, $self->files)) {
		$self->file_proc ($_, $meta);
	}
}

sub file_proc {
	my $self = shift;
	my $f = shift;
	my %meta = %{$self->meta};
	print STDERR "input=$f\n";
	$meta{input} = $f;
	$self->next->run(\%meta, 0) if ($self->next);
}

sub setup {
	my $self = shift;
	my $o = shift;
	$self->files ($$o{files});
}

sub initialize {
	my $self = shift;
	$self->SUPER::initialize (@_);
	$self->{files}="";
	$self->{meta}={};
}

1;