=head1 VERSION
-Version 1.01
+Version 1.02
=cut
-our $VERSION = '1.01';
+our $VERSION = '1.02';
=head1 DESCRIPTION
if (not $self->no_def_supp) {
my $def_supp = $self->def_supp_file;
if (defined $def_supp and not -e $def_supp) {
- $self->report(Test::Valgrind::Report->new_diag("Generating suppressions..."));
+ $self->report(Test::Valgrind::Report->new_diag(
+ "Generating suppressions..."
+ ));
require Test::Valgrind::Suppressions;
Test::Valgrind::Suppressions->generate(
tool => $self->tool,
target => $def_supp,
);
$self->_croak('Couldn\'t generate suppressions') unless -e $def_supp;
- $self->report(Test::Valgrind::Report->new_diag("Suppressions for this perl stored in $def_supp"));
+ $self->report(Test::Valgrind::Report->new_diag(
+ "Suppressions for this perl stored in $def_supp"
+ ));
}
}
push @supp_args, '--suppressions=' . $_ for $self->suppressions;
=head2 C<report_class>
-Calls C<< ->action->report_class >> with the current session object as the sole argument.
+Calls C<< ->action->report_class >> with the current session object as the unique argument.
=cut
=cut
sub report {
- my $self = shift;
- $self->action->report($self, @_);
+ my ($self, $report) = @_;
+
+ return unless defined $report;
+
+ $report = $self->command->filter($self, $report);
+ return unless defined $report;
+
+ $self->action->report($self, $report);
}
=head2 C<finish>