my @coords = $can->bbox('all') || ( 0, 0, 5, 5);

##</code><code>##

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

##</code><code>##

Useless use of a constant in void context at /tmp/crap line 10.
Useless use of a constant in void context at /tmp/crap line 14.
Useless use of a constant in void context at /tmp/crap line 14.
Useless use of a constant in void context at /tmp/crap line 24.
Useless use of a constant in void context at /tmp/crap line 24.
Use of uninitialized value in bitwise or (|) at /tmp/crap line 10.
List:
$VAR1 = [
          3
        ];

List0:
$VAR1 = [
          1,
          2,
          3
        ];

List1:
$VAR1 = [];

List2:
$VAR1 = [
          [
            51,
            3,
            102,
            55
          ]
        ];

List3:
$VAR1 = [
          51,
          3,
          102,
          55
        ];