sub内の stateの勉強

state.pl

#! /usr/bin/perl
use strict;
use warnings;
use 5.010;

my $sum;

running_sum(5,6);
running_sum(1..3);
running_sum(4);

sub running_sum {
	state $num = 0; # state は以下の内容として宣言できる
	state @numbers; # サブルーチン内の永続的なプライベート変数

	foreach my $number (@_){
		push @numbers, $number;
		$sum += $number;
	}

say "The sum of (@numbers) is $sum";

}

state ってなくても良さそうw