Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

adamk's scratchpad

by adamk (Chaplain)
on Jun 03, 2004 at 19:34 UTC ( #360404=scratchpad: print w/replies, xml ) Need Help??

package strict;

$strict::VERSION = "1.03";

my %bitmask = (
refs => 0x00000002,
subs => 0x00000200,
vars => 0x00000400

# refs & subs & vars
my $default = 0x00000602;

sub bits {
    my $bits = 0;
    foreach my $s (@_){ $bits |= $bitmask{$s} || 0; };

sub import {
    $^H |= @_ ? bits @_ : $default;

sub unimport {
    $^H &= ~ (@_ ? bits @_ : $default);
Log In?

What's my password?
Create A New User
[marto]: some hardware/makey thing
[Corion]: marto: Ah, I'm currently drifting to that again, over"painting" (well with Inkscape) one of my photographs and thinking about vectorizing some other images ...
[marto]: Corion, yes something 'artistic', so that or some music. Even combine some things, build a musical instrument :)
[Corion]: marto: Naah, I'm avoiding that rabbit hole ;) Sometimes I think of using Perl to create MIDI to generate music, or at least the harmonies to which I could jam, but then that would eat even more into available time ;-))

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2017-07-27 07:51 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (404 votes). Check out past polls.