the test does not work properly!

use strict;
use warnings;

use Test::More tests => 2;

my $bool;
sub odd { return $_[0] % 2; }

$bool = (odd(3) && !odd(4)) || (!odd(3) && !odd(1));
ok ($bool, "First call is true");
$bool = (odd(3) && !odd(5)) || (!odd(3) && !odd(1));
ok (!$bool, "Second call is false");
[download]