mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-10-18 21:09:41 +00:00
49 lines
772 B
Perl
49 lines
772 B
Perl
package warnings::register;
|
|
|
|
our $VERSION = '1.02';
|
|
|
|
=pod
|
|
|
|
=head1 NAME
|
|
|
|
warnings::register - warnings import function
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use warnings::register;
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Creates a warnings category with the same name as the current package.
|
|
|
|
See L<warnings> and L<perllexwarn> for more information on this module's
|
|
usage.
|
|
|
|
=cut
|
|
|
|
require warnings;
|
|
|
|
# left here as cruft in case other users were using this undocumented routine
|
|
# -- rjbs, 2010-09-08
|
|
sub mkMask
|
|
{
|
|
my ($bit) = @_;
|
|
my $mask = "";
|
|
|
|
vec($mask, $bit, 1) = 1;
|
|
return $mask;
|
|
}
|
|
|
|
sub import
|
|
{
|
|
shift;
|
|
my @categories = @_;
|
|
|
|
my $package = (caller(0))[0];
|
|
warnings::register_categories($package);
|
|
|
|
warnings::register_categories($package . "::$_") for @categories;
|
|
}
|
|
|
|
1;
|