Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (11 sloc) 215 Bytes
#! /usr/bin/perl
use Modern::Perl;
use YAML;
sub compteur {
state $counter = shift || 0;
$counter++;
}
say compteur(3) for 1..5;
say compteur(3) for 1..5;
# /!\ pas de retour a 3 !!!
# voir compteur2.pl
Something went wrong with that request. Please try again.