package Iotta::Ctrl::Chain;
use strict;
require Iotta::Ctrl;
require Iotta::Chain;

our @ISA = ("Iotta::Ctrl");

sub main {
	my $self = shift;
	my %cfg=%{$self->{cfg}};
	my $feeder=$cfg{"ctrl/feeder"};
	my @chains = split (/;/, $cfg{chain});
	for (@chains) {
		my @chain = split (/;/, $cfg{"chain/$_"});
		my $c = Iotta::Chain->new;
		$c->cfg (\%cfg);
		for (@chain) {
			my $mod = $c->mod_creat ($_);
			$c->mod_add($mod);
		}
		$c->run;
		$c->finish;
	}
}

1;