Lines Matching refs:collectors
3532 my %collectors = @_;
3537 if ($collectors{"BEFORE"}) {
3538 $collectors{"BEFORE"}->($_);
3540 foreach my $re (keys %collectors) {
3542 $collectors{$re}->($lineiterator);
3546 if ($collectors{"OTHERWISE"}) {
3547 $collectors{"OTHERWISE"}->($lineiterator, $_)
3548 unless $found || !defined $collectors{"OTHERWISE"};
3550 if ($collectors{"AFTER"}) {
3551 $collectors{"AFTER"}->($_);