This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
62a3dbfce08bf6dac2f410defa3ab23cb94db637
[perl5.git] / lib / warnings / register.pm
1 package warnings::register;
2
3 our $VERSION = '1.03';
4
5 =pod
6
7 =head1 NAME
8
9 warnings::register - warnings import function
10
11 =head1 SYNOPSIS
12
13     use warnings::register;
14
15 =head1 DESCRIPTION
16
17 Creates a warnings category with the same name as the current package.
18
19 See L<warnings> for more information on this module's usage.
20
21 =cut
22
23 require warnings;
24
25 # left here as cruft in case other users were using this undocumented routine
26 # -- rjbs, 2010-09-08
27 sub mkMask
28 {
29     my ($bit) = @_;
30     my $mask = "";
31
32     vec($mask, $bit, 1) = 1;
33     return $mask;
34 }
35
36 sub import
37 {
38     shift;
39     my @categories = @_;
40
41     my $package = (caller(0))[0];
42     warnings::register_categories($package);
43
44     warnings::register_categories($package . "::$_") for @categories;
45 }
46
47 1;