use strict;
use warnings;
use Switch;
package SES;
sub call_ses {
my ($paramHash, $optHash) = @_;
print "$_ $paramHash->{$_}\n" for keys %$paramHash;
return 400, '';
}
package main;
my %params = (hello => "world");
my %opts;
my ($response_code, $response_content) = SES::call_ses \%params, \%opt
+s;
switch() {
case '400' {}
}
prints:
hello world
as expected so there is more going on than you are showing. Maybe you should generate the sensible minimum code required to reproduce the issue? See I know what I mean. Why don't you? for some hints.
Note that use of the Switch module is strongly discouraged and has been for a long time. Not the smoking gun in this case, but best practice would avoid using it.
Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond