use warnings;
use strict;
use Data::Dump::Streamer;

my $condRes = 1 == 1;

print '1 == 1 '; Dump ($condRes);
$condRes = 1 == 0;
print '1 == 0 '; Dump ($condRes);
$condRes = doCond (1);
print 'doCond (1) '; Dump ($condRes);
$condRes = doCond (0);
print 'doCond (0) '; Dump ($condRes);


sub doCond {
    1 == shift;
}
##</code><code>##

1 == 1 $VAR1 = 1;
1 == 0 $VAR1 = '';
doCond (1) $VAR1 = 1;
doCond (0) $VAR1 = '';