use Perl

• A neat hammer... (Score:3)

  by petdance (2468) <andy@petdance.com> on 2003.01.30 12:47 (#16541) Homepage Journal

  A neat hammer, but I don't see what the nails for it are. I'd love to see some examples that show how this can help the average programmer. Or is it a module that only an internals-lovin' programmer could love?

  --
  

  --
  xoa

  Reply to This

  • Re:A neat hammer... (Score:3, Insightful)

    by autrijus (1505)

    Here's the nail I wrote the hammer for, a CORE::GLOBAL::open() overrider that respects the 'use open' pragma in the caller's block:
    
    sub open (*;@) {
            # ...
            my $ret = CORE::open($fh, $mode, $file) or return 0;
            # ...
            my $binmode = Devel::Hints::cop_io(1);
            $binmode = (split(/\x00/, $binmode))[($mode =~ />/) ? 1 : 0];
            binmode($fh, $binmode) if