Select Code to Download

#!perl
use strict;
...
ok(Case::switch('foo'), 'term, no sub');
diag("Should get a malformed switch warning");
ok(Case::switch(sub{}, sub{}), 'malformed switch warning');

package Case;

...
    };
}
1;