use Perl

• This reminds me of something I did once (Score:1)

  by stvn (5613)

  This reminds me of something I did once on a long Metro-North ride home from NYC after reading a having read a paper on Smalltalk.

  #!/usr/bin/perl
  
  use strict;
  use warnings;
  
  use Test::More tests => 2;
  
  {
      package Boolean;
  
      use strict;
      use warnings;
  
      sub import {
          no strict 'refs';
          *{(caller())[0] . '::cond'} = \&cond;
      }
  
      sub cond (&) {
          my ($bloc

  --
  -stvn
  • Re:This reminds me of something I did once (Score:2)

    by Ovid (2709) on 2005.01.20 15:52 (#37683) Homepage Journal

    Sweet! I would change two methods:

    sub isFalse {
        my ($self, $sub) = @_;
        ! $self->() && $sub->();
        return $self;
    }
    
    sub isTrue {
        my ($self, $sub) = @_;
        $self->() && $sub->();
        return $self;
    }

    Maybe I can slip this into production ... (no, I'm not serious.)

    Reply to This

    Parent