Help for this page

Select Code to Download

Select or download this

my $TEMPID;
my %TEMPS;

...
    $TEMPS{ self->{ID} = ++$TEMPID } = $self;
    $self;
}