mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-10-19 13:29:40 +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;
|