projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
perl5.001 patch.1e
[p5sagit/p5-mst-13.2.git]
/
lib
/
strict.pm
1
package strict;
2
3
sub bits {
4
my $bits = 0;
5
foreach $sememe (@_) {
6
$bits |= 0x00000002 if $sememe eq 'refs';
7
$bits |= 0x00000200 if $sememe eq 'subs';
8
$bits |= 0x00000400 if $sememe eq 'vars';
9
}
10
$bits;
11
}
12
13
sub import {
14
shift;
15
$^H |= bits(@_ ? @_ : qw(refs subs vars));
16
}
17
18
sub unimport {
19
shift;
20
$^H &= ~ bits(@_ ? @_ : qw(refs subs vars));
21
}
22
23
1;