Lines Matching refs:collectors
3555 my %collectors = @_;
3560 if ($collectors{"BEFORE"}) {
3561 $collectors{"BEFORE"}->($_);
3563 foreach my $re (keys %collectors) {
3565 $collectors{$re}->($lineiterator);
3569 if ($collectors{"OTHERWISE"}) {
3570 $collectors{"OTHERWISE"}->($lineiterator, $_)
3571 unless $found || !defined $collectors{"OTHERWISE"};
3573 if ($collectors{"AFTER"}) {
3574 $collectors{"AFTER"}->($_);