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;
}