#!/usr/bin/perl -w
use strict;
use warnings qw(FATAL all);
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