Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
9 lines (5 sloc) 190 Bytes
#!perl -w
use strict;
use macro::filter my_if => sub{ print $_[0], " "; $_[0] ? $_[1] : $_[2] };
my_if( 0, print "true\n", print "false\n" );
my_if( 1, print "true\n", print "false\n" );