=head1 VERSION
-Version 1.14
+Version 1.15
=cut
-our $VERSION = '1.14';
+our $VERSION = '1.15';
=head1 DESCRIPTION
return $self->{suppressions_tag};
}
+sub check_suppressions_file {
+ my ($self, $file) = @_;
+
+ {
+ open my $fh, '<', $file or return 0;
+
+ local $_;
+ while (<$fh>) {
+ return 1 if /^\s*fun:Perl_/;
+ }
+
+ close $fh;
+ }
+
+ return 0;
+}
+
sub filter {
my ($self, $session, $report) = @_;