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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/perl -w
use strict;
use warnings qw(FATAL all);
no warnings 'void';
use lib 'lib';
use Test::More tests => 23;
use Data::Alias;
eval { &alias };
like $@, qr/^Undefined subroutine /;
eval { &alias(1) };
like $@, qr/^Undefined subroutine /;
is alias(42), 42;
is alias
(42), 42;
is alias{42}, 42;
is alias#{{{{{{{
{#}}}}}
42 }, 42;
is_deeply alias{},{};
is alias{1},1;
is_deeply alias{x=>1},{x=>1};
is alias{{1}},1;
is_deeply alias{{x=>1}},{x=>1};
is alias{{;x=>1}},1;
is alias{;x=>1},1;
our $x = "x";
is alias{{$x,1}},1;
is_deeply alias{+{$x,1}},{x=>1};
is alias{$x,1},1;
is_deeply alias+{$x,1},{x=>1};
is_deeply alias({$x,1}),{x=>1};
$x = alias 1, !alias { 2 }, 3;
is $x, 3;
$x = alias { !alias 1, 2 }, 3;
is $x, !2;
BEGIN {
# install a source filter, just for fun
if(eval { require Filter::Util::Call; 1 }) {
Filter::Util::Call::filter_add(sub {
my $s = Filter::Util::Call::filter_read();
return $s;
});
}
}
is alias
(42), 42;
is alias{42}, 42;
is alias#{{{{{{{
{#}}}}}
42 }, 42;
# vim: ft=perl
|
