Lines Matching refs:when
17 $::_S_W_I_T_C_H = sub { croak "case/when statement not in switch/given block" };
90 || $Perl6 && $source =~ /when|given|default/;
146 || $Perl6 && $source =~ m/\G(\s*)(when\b)(?!\s*=>)/gc
198 die "Missing opening brace or semi-colon after 'when' value near $Switch::file line ", line(substr($source,0,pos $source), $line), "\n"
625 However, when a C<case> block has been executed control is automatically
733 the string "fallthrough" when importing the module. For example, the
756 C<case> will be pronounced C<when>. In addition, the C<when> statement
765 when 1 { handle_num_1(); }
766 when ($str1) { handle_str_1(); }
767 when [0..9] { handle_num_any(); last }
768 when /\d/ { handle_dig_any(); }
769 when /.*/ { handle_str_any(); }
802 overcome this, when importing Switch.pm, a special "placeholder"
836 doesn't act as expected, because when it is