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