given ($payment_method) {  # All code samples are Perl 6
    when 'credit' { do_credit_card($num, $exp) }
    when 'debit'  { do_debit_card($num, $exp) }
    when 'check'  { do_check() }
    default       { die }
}