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
|
#!/usr/bin/perl -w
use strict;
use warnings qw( FATAL all NONFATAL void );
no warnings 'syntax';
use lib 'lib';
use Test::More tests => 10;
use Data::Alias;
sub refs { [map "".\$_, @_] }
@_ = ();
is alias(unshift @_), 0;
is alias(unshift @_, our $x), 1;
is_deeply &refs, refs($x);
is alias(unshift @_, our ($y, $z)), 3;
is_deeply &refs, refs($y, $z, $x);
is alias(unshift @_), 3;
is alias(unshift @_, $x), 4;
is_deeply &refs, refs($x, $y, $z, $x);
is alias(unshift @_, $y, $z), 6;
is_deeply &refs, refs($y, $z, $x, $y, $z, $x);
# vim: ft=perl
|
