use feature qw( switch ); given($command) { when("GET") { do_get($resource); } when("PUT") { do_put($resource); } when("DELETE") { do_delete($resource); } default { die "$command not implemented"; } }
use feature qw( switch ); given($command) { when("GET") { do_get($resource); } when("PUT") { do_put($resource); } when("DELETE") { do_delete($resource); } default { die "$command not implemented"; } }