-my $key;
-foreach $key (sort keys %$self) {
- if ($key =~ /$sort$/) {
- push @out, $self->{$key}->print if $self->{$key};
- }
+my $sort;
+foreach $sort (@in) {
+ my $ref = Filter::read_in($sort, $call, 1);
+ push @out, $ref->print($call, $sort, "input") if $ref;
+ $ref = Filter::read_in($sort, $call, 0);
+ push @out, $ref->print($call, $sort, "") if $ref;