package warnings
::register
;
warnings::register - warnings import function
Create a warnings category with the same name as the current package.
See L<perlmodlib/Pragmatic Modules> and L<perllexwarn>.
vec($mask, $bit, 1) = 1 ;
my $package = (caller(0))[0] ;
if (! defined $warnings::Bits
{$package}) {
$warnings::Bits
{$package} = mkMask
($warnings::LAST_BIT
) ;
vec($warnings::Bits
{'all'}, $warnings::LAST_BIT
, 1) = 1 ;
$warnings::Offsets
{$package} = $warnings::LAST_BIT
++ ;
foreach my $k (keys %warnings::Bits
) {
vec($warnings::Bits
{$k}, $warnings::LAST_BIT
, 1) = 0 ;
$warnings::DeadBits
{$package} = mkMask
($warnings::LAST_BIT
);
vec($warnings::DeadBits
{'all'}, $warnings::LAST_BIT
++, 1) = 1 ;