1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#!/usr/bin/perl -w
use strict;
use warnings qw(FATAL all);
use lib 'lib';
use Test::More;
BEGIN {
if (eval 'my $x //= 42') {
plan tests => 12;
} else {
plan skip_all => "//= not supported in this perl version";
}
}
use Data::Alias;
my $U;
my $E = "";
my $Z = 0;
my $x;
my $rx = \$x;
is \alias($x //= $U), \$U;
is \$x, \$U;
is \alias($x //= $E), \$E;
is \$x, \$E;
is \alias($x //= $Z), \$E;
is \$x, \$E;
is \alias($x = $$rx), $rx;
is \$x, $rx;
is \alias($x //= $Z), \$Z;
is \$x, \$Z;
is \alias($x //= $E), \$Z;
is \$x, \$Z;
# vim: ft=perl
|
