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;