#!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" );
#!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" );