Re^2: Bad news for IO::Handle magic (SWYM or sink)

[Stevie-O]

While my examples always used STDIN, that was for brevity. Any code can play tricks on you if you use the Module->sub() OO syntax.

$ perl -MCGI -le 'select(select(CGI)); print CGI->new'
Can't locate object method "new" via package "IO::Handle" at -e line 1
+.

This isn't limited to all-caps names, either:

perl -MFile::Spec -le 'select(select(File::Spec)); print File::Spec->r
+ootdir'
Can't locate object method "rootdir" via package "IO::Handle" at -e li
+ne 1.

[tye]

I said not to use bareword file handles. Using mixed-case bareword file handles is an even worse idea and you deserve any grief you cause yourself if you do that.

Though, with other problems, I'm starting to think "File::Spec"->method() is the better syntax. But more than that I prefer putting the module's factory (which for many modules is simply the module's name) into a scalar, even better if this can be done as part of the use or require for the module.

[ysth]

I'm curious to know how you found the select select trick.

[Stevie-O]

Stolen^WBorrowed straight outta Symbol's geniosym:

sub geniosym () {
    my $sym = gensym();
    # force the IO slot to be filled
    select(select $sym);
    *$sym{IO};
}