use strict;
use warnings;
use Data::Dumper;
use Tk;

sub x { return () };

my @list = x() | (1,2,3);
print "List:\n",Dumper(\@list), "\n";
my @list0 = x() || (1,2,3);
print "List0:\n",Dumper(\@list0), "\n";
my @list1 = x() or (1,2,3);
print "List1:\n",Dumper(\@list1), "\n";

my $t=MainWindow->new();
my $c=$t->Scrolled('Canvas')->pack;
$c->createArc(5,5,100,100);
$t->update;
my @list2 = $c->bbox('all') || (1,2,3);
print "List2:\n", Dumper(\@list2), "\n";

my @list3 = $c->bbox('all') or (1,2,3);
print "List3:\n", Dumper(\@list3), "\n";