1#!/usr/bin/perl
2
3# Copyright 2013-2019, Paul Johnson (paul@pjcj.net)
4
5# This software is free.  It is licensed under the same terms as Perl itself.
6
7# The latest version of this software should be available from my homepage:
8# http://www.pjcj.net
9
10my $x = 1;
11my $y = 1;
12
13if ($x && !$y) {
14    die "Urgh";
15}
16
17if ($x && $y) {
18}
19
20unless ($x && $y) {
21    die "Urgh";
22}
23
24if (!($x && $y)) {
25    die "Urgh";
26}
27
28if (!$x || !$y) {
29    die "Urgh";
30}
31