projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Finalize change #4232.
[p5sagit/p5-mst-13.2.git]
/
lib
/
strict.pm
diff --git
a/lib/strict.pm
b/lib/strict.pm
index
4e2baa3
..
940e8bf
100644
(file)
--- a/
lib/strict.pm
+++ b/
lib/strict.pm
@@
-77,6
+77,14
@@
See L<perlmodlib/Pragmatic Modules>.
=cut
+$strict::VERSION = "1.01";
+
+my %bitmask = (
+refs => 0x00000002,
+subs => 0x00000200,
+vars => 0x00000400
+);
+
sub bits {
my $bits = 0;
foreach my $s (@_){ $bits |= $bitmask{$s} || 0; };