Vyššie na [Platon] / iotta / Iotta / Feeder

simple feeder operating on filelist [Files.pm]

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;