=head1 VERSION
-Version 0.01
+Version 0.07
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.07';
=head1 DESCRIPTION
=head1 FUNCTIONS
-=head2 C<supppath>
+=head2 C<supp_path>
Returns the path to the suppression file that applies to the current running perl, or C<undef> when no such file is available.
=cut
-sub supppath {
+sub supp_path {
my $pkg = __PACKAGE__;
$pkg =~ s!::!/!g;
$pkg .= '.pm';
return (-f $supp) ? $supp : undef;
}
+=head1 CONSTANTS
+
+=head2 C<VG_PATH>
+
+The path to the valgrind binary from which the suppressions were generated.
+
+=cut
+
+use constant VG_PATH => undef;
+
=head1 EXPORT
-This module exports the L</supppath> function only on demand, either by giving its name, or by the C<:funcs> or C<:all> tags.
+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.
=cut
use base qw/Exporter/;
our @EXPORT = ();
-our %EXPORT_TAGS = ( 'funcs' => [ qw/supppath/ ] );
+our %EXPORT_TAGS = (
+ 'funcs' => [ qw/supp_path/ ],
+ 'consts' => [ qw/VG_PATH/ ]
+);
our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
$EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
-You can contact me by mail or on #perl @ FreeNode (vincent or Prof_Vince).
+You can contact me by mail or on C<irc.perl.org> (vincent).
=head1 BUGS
Copyright 2008 Vincent Pit, all rights reserved.
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
+This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
=cut