1 package Test::Valgrind::Suppressions;
8 Test::Valgrind::Suppressions - Placeholder for architecture-dependant perl suppressions.
16 our $VERSION = '0.04';
20 L<Test::Valgrind> needs suppressions so that perl's errors aren't reported. However, these suppressions depend widely on the architecture, perl's version and the features it has been build with (e.g. threads). The goal of this module is hence to be installed together with the suppression file generated when the Test-Valgrind distribution was built, and to handle back to L<Test::Valgrind> the path to the suppression file.
26 Returns the path to the suppression file that applies to the current running perl, or C<undef> when no such file is available.
31 my $pkg = __PACKAGE__;
34 return if not $INC{$pkg};
35 my $supp = $INC{$pkg};
36 $supp =~ s![^/]*$!perlTestValgrind.supp!;
37 return (-f $supp) ? $supp : undef;
44 The path to the valgrind binary from which the suppressions were generated.
48 use constant VG_PATH => undef;
52 This module exports the L</supp_path> function and the L</VG_PATH> constants only on demand, either by giving their name explicitely or by the C<:funcs>, C<:consts> or C<:all> tags.
56 use base qw/Exporter/;
60 'funcs' => [ qw/supp_path/ ],
61 'consts' => [ qw/VG_PATH/ ]
63 our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
64 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
72 Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
74 You can contact me by mail or on #perl @ FreeNode (vincent or Prof_Vince).
78 Please report any bugs or feature requests to C<bug-test-valgrind-suppressions at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Valgrind>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
82 You can find documentation for this module with the perldoc command.
84 perldoc Test::Valgrind::Suppressions
86 =head1 COPYRIGHT & LICENSE
88 Copyright 2008 Vincent Pit, all rights reserved.
90 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
94 1; # End of Test::Valgrind::Suppressions