Searched refs:case_label (Results 1 – 1 of 1) sorted by relevance
419 sub case_label { subroutine475 printf { $fh } (' ' x $indent . "case %s:\n", $self->case_label(lc($key)));476 …printf { $fh } (' ' x $indent . "case %s:\n", $self->case_label(uc($key))) if lc($key) ne uc($k…478 printf { $fh } (' ' x $indent . "case %s:\n", $self->case_label($key));