diff options
Diffstat (limited to 'lib/warnings/register.pm')
| -rw-r--r-- | lib/warnings/register.pm | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/lib/warnings/register.pm b/lib/warnings/register.pm index c5dc1999a0..d07e464aeb 100644 --- a/lib/warnings/register.pm +++ b/lib/warnings/register.pm @@ -1,4 +1,4 @@ -package warnings::register ; +package warnings::register; our $VERSION = '1.00'; @@ -10,42 +10,42 @@ warnings::register - warnings import function =head1 SYNOPSIS - use warnings::register ; + use warnings::register; =head1 DESCRIPTION -Create a warnings category with the same name as the current package. - -See L<perlmodlib/Pragmatic Modules> and L<perllexwarn>. +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 ; +require warnings; sub mkMask { - my ($bit) = @_ ; - my $mask = "" ; + my ($bit) = @_; + my $mask = ""; - vec($mask, $bit, 1) = 1 ; - return $mask ; + vec($mask, $bit, 1) = 1; + return $mask; } sub import { - shift ; - my $package = (caller(0))[0] ; + shift; + 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 ++ ; + $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 ; + 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 ; + vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1; } } -1 ; +1; |