Persistent/static vars in perl

[Paul Makepeace]

$ perl -wle 'use strict; sub id {my $id if 0; $id++} print id,id,id'
012
$

This idiom doesn't appear in perlsub. Anyone know about it?

Paul