epoptai has asked for the wisdom of the Perl Monks concerning the following question:
Here is the strict.pm source code:
$strict::VERSION = "1.01"; my %bitmask = ( refs => 0x00000002, subs => 0x00000200, vars => 0x00000400 ); sub bits { my $bits = 0; foreach my $s (@_){ $bits |= $bitmask{$s} || 0; }; $bits; } sub import { shift; $^H |= bits(@_ ? @_ : qw(refs subs vars)); } sub unimport { shift; $^H &= ~ bits(@_ ? @_ : qw(refs subs vars)); } 1;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re (tilly) 1: How does strict work?
by tilly (Archbishop) on Feb 17, 2001 at 09:53 UTC | |
Re: How does strict work?
by IndyZ (Friar) on Feb 17, 2001 at 09:51 UTC | |
Re: How does strict work?
by merlyn (Sage) on Feb 17, 2001 at 09:44 UTC |
Back to
Seekers of Perl Wisdom