Perl Style: Switch Using for and do{} Even More Creatively

Sometimes, aesthetics counts. :-)

    for ($^O) {
        *struct_flock =                do                           {

                                /bsd/  &&  \&bsd_flock
                                       ||
                            /linux/    &&    \&linux_flock
                                       ||
                          /sunos/      &&      \&sunos_flock
                                       ||
                  die "unknown operating system $^O, bailing out";
        };
    }

Forward to The Care and Feeding of Modules
Back to Switch with for via && and ||
Up to index