-=cut
-
-sub parse {
- my ($self, $sess, $fh) = @_;
-
- $self->_croak('Tool isn\'t started') unless $self->started;
-
- if ($sess->do_suppressions) {
- $self->parse_suppressions($sess, $fh);
- } else {
- $self->parse_analysis($sess, $fh);
- }
-}
+The C<$session> calls this method after receiving a report from the parser and before letting the command filter it.
+You can either return a mangled C<$report> (which does not need to be a clone of the original) or C<undef> if you want the action to ignore it completely.