Lines Matching refs:collectors
3696 my %collectors = @_;
3701 if ($collectors{"BEFORE"}) {
3702 $collectors{"BEFORE"}->($_);
3704 foreach my $re (keys %collectors) {
3706 $collectors{$re}->($lineiterator);
3710 if ($collectors{"OTHERWISE"}) {
3711 $collectors{"OTHERWISE"}->($lineiterator, $_)
3712 unless $found || !defined $collectors{"OTHERWISE"};
3714 if ($collectors{"AFTER"}) {
3715 $collectors{"AFTER"}->($_);