sub stateful {
state $x;
- state $y = 1;
+ state $y //= 1;
my $z = 2;
- return ($x++, $y++, $z++);
+ state ($t) //= 3;
+ return ($x++, $y++, $z++, $t++);
}
-my ($x, $y, $z) = stateful();
+my ($x, $y, $z, $t) = stateful();
is( $x, 0, 'uninitialized state var' );
is( $y, 1, 'initialized state var' );
is( $z, 2, 'lexical' );
+is( $t, 3, 'initialized state var, list syntax' );
-($x, $y, $z) = stateful();
+($x, $y, $z, $t) = stateful();
is( $x, 1, 'incremented state var' );
is( $y, 2, 'incremented state var' );
is( $z, 2, 'reinitialized lexical' );
+is( $t, 4, 'incremented state var, list syntax' );
-($x, $y, $z) = stateful();
+($x, $y, $z, $t) = stateful();
is( $x, 2, 'incremented state var' );
is( $y, 3, 'incremented state var' );
is( $z, 2, 'reinitialized lexical' );
+is( $t, 5, 'incremented state var, list syntax' );
# in a nested block
sub nesting {
- state $foo = 10;
+ state $foo //= 10;
my $t;
- { state $bar = 12; $t = ++$bar }
+ { state $bar //= 12; $t = ++$bar }
++$foo;
return ($foo, $t);
}
sub TIESCALAR {bless {}};
sub FETCH { ++$fetchcount; 18 };
tie my $y, "countfetches";
- sub foo { state $x = $y; $x++ }
+ sub foo { state $x //= $y; $x++ }
::is( foo(), 18, "initialisation with tied variable" );
::is( foo(), 19, "increments correctly" );
::is( foo(), 20, "increments correctly, twice" );
sub gen_cashier {
my $amount = shift;
- state $cash_in_store = 0;
+ state $cash_in_store;
return {
add => sub { $cash_in_store += $amount },
del => sub { $cash_in_store -= $amount },
# stateless assignment to a state variable
sub stateless {
- no warnings 'misc';
- (state $reinitme, my $foo) = (42, 'bar');
+ state $reinitme = 42;
++$reinitme;
}
is( stateless(), 43, 'stateless function, first time' );
$xhval = stateful_hash();
is( $xhval, 1, 'uninitialized state hash after one iteration' );
-# state declaration with a list
-
-sub statelist {
- # note that this should be a state assignment, while (state $lager, state $stout) shouldn't
- state($lager, $stout) = (11, 22);
- $lager++;
- $stout++;
- "$lager/$stout";
-}
-
-my $ls = statelist();
-is($ls, "12/23", 'list assignment to state scalars');
-$ls = statelist();
-is($ls, "13/24", 'list assignment to state scalars');
-
-sub statelist2 {
- state($sherry, $bourbon) = (1 .. 2);
- $sherry++;
- $bourbon++;
- "$sherry/$bourbon";
-}
-
-$ls = statelist2();
-is($ls, "2/3", 'list assignment to state scalars');
-$ls = statelist2();
-is($ls, "3/4", 'list assignment to state scalars');
-
# Recursion
sub noseworth {
noseworth($level - 1) if $level;
}
noseworth(2);
+
+# Assignment return value
+
+sub pugnax { my $x = state $y = 42; $y++; $x; }
+
+is( pugnax(), 42, 'scalar state assignment return value' );