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