Lines Matching refs:label
184 $label="000";
188 foreach $i (values %label) { return $i if ($i eq $_[0]); }
189 $label{$_[0]}; # can be undef
192 sub ::label # instantiate a function-scope label
193 { if (!defined($label{$_[0]}))
194 { $label{$_[0]}="${lbdecor}${label}${_[0]}"; $label++; }
195 $label{$_[0]};
199 { $label{$_[0]}=$_[1] if (!defined($label{$_[0]}));
200 $label{$_[0]};
207 { my $label=&::label($_[0]);
209 &::set_label_B($label);
210 $label;
214 { foreach $i (keys %label)
215 { delete $label{$i} if ($label{$i} =~ /^\Q${lbdecor}\E[0-9]{3}/); }
