#!perl

use Test::More tests => 3;

use warnings FATAL => 'all';
use strict;

use Function::Parameters {
	fun => {
		default_arguments => 1,
	},
};

{
	my ($d0, $d1, $d2, $d3);
	my $default = 'aaa';

	fun padness($x = $default++) {
		return $x;
	}

	is padness('unrelated'), 'unrelated';
	is &padness(), 'aaa';
	is padness, 'aab';
}