### --------------------------
    .q©
    // BEGIN©
    .sub{(@{$oDt})?"
        switch(x){"
        .sLp($oDt,sub{my $sBrk=($iCt++<$#{$oDt})?'break;':'';"
            case $_:
                // code for $_
                $sBrk"
            })."
        }"
        :''}->().
    q©
    // END
    ©;
    ### --------------------------